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FORWARD 

This  effort  was  performed  during  the  period  October  1978 
to  January Jj>80  and  was  sponsored  by  Mr  £.  Lichtmcn  of  the' 
Naval  AiTrZ^ysttms  Command  under  Air  Task  Mo. 
A3333333/331C/9W3582031. 


SUMMARY 

This  report  documents  a  computer  program,  entitled 
"ZDRAFT',  that  generates  a  graphic  display  of  VTCL  aircraft 
and  their  associated  ground  flow  fields.  The  actual  flow 
field  data  is  calculated  by  another  computer  program.  The 
"ZDRAFT'  computer  code  rapidly  assimilates  and  displays  this 
flow  field  data.  The  display  consists  of  pertinent  flow  field 
characteristics,  such  as  stagnation  lines,  upwash  flow  and 
ground  plane  wall  jet  conditions,  superimposed  over  a  scaled 
aircraft  planform.  This  visual  form  allows  easy  assessment  of 
various  configurations  and  operating  conditions. 
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1.C  DESCRIPTION 


1.1  Background 


The  "ZDRAFT"  computer  graphics  program,  described  in  this 
report,  was  developed  to  complement  a  computer  program  that 
estimates  the  inlet  temperature  rise  of  VTCL  aircraft 
operating  in  ground  effect  (Reference  a).  The  "Z DRAFT"  code 
was  designed  to  display  the  ground  plane  flow  fields  and  the 
stagnation  lines  calculated  by  the  other  program.  This 
display  is  most  useful  in  examining  parametric  variations  of 
aircraft  height,  nozzle  pressure  ratios,  nozzle  vector  and 
splay  angles  and  nozzle  aspect  ratios.  These  parametric 
variations  can  produce  drastic  changes  in  the  shape  and  the 
location  of  ground  plane  and/or  undersurface  stagnation  lines. 
Hence,  a  rapid  means  for  visualizing  these  changes  is 
necessary,  to  efficiently  evaluate  conceptual  designs. 
Although,  flow  field  visualization  was  the  primary  reason  for 
developing  this  graphics  capability,  "Z DRAFT"  was  constructed 
for  use  as  a  general  graphics  program.  For  example,  drawings 
have  been  developed  for  aircraft  spotting  and  engine 
installation  studies. 


'1.2  Program  Description  and  Capabilities 


The  "ZDRAFT"  code  is  compiled  in  Fortran  IV  and  uses  the 
Tektronix  PLOT 10  library.  Computer  runs  are  made  from  a 
remote  interactive  graphics  terminal  on  the  Naval  Air 
Development  Center’s  (NAVAIRDEVCEN)  Central  Computer  System. 
This  computer  system  consists  of  two  CDC  6600’s  and  one  CDC 
CYBER  170  Model  175.  The  "ZDRAFT"  code  exceeds  the  memory 
size  limit  of  the  NAVAIRDEVCEN  interactive  system.  Therefore, 
it  is  necessary  to  run  the  program  with  segmentation  loading. 
This  uses  less  computer  memory  by  loading  only  the  program 
segments  that  are  need  at  a  given  time. 

The  specific  interactive  hardware,  necessary  for  running 
the  code,  are: 
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1.  Tektronix  4C10-series  computer  display  terminal 

2.  Tektronix  4953/^954  graphics  tablet 

3.  Tektronix  4631  hard  copy  unit 

The  interactive  computer  display  terminal  has  a  keyboard, 
similar  to  a  conventional  typewriter,  and  a  direct  storage 
cathode  ray  tube  (DSCRT)  display  screen.  It  is  via  this 
keyboard  and  display  screen  that  the  operator  ccmmunicates 
with  the  Central  Computer  System.  The  major  components  of  the 
graphics  tablet  are  a  large  (1.C79M  x  0.864K)  flat  writing 
surface  (tablet)  and  writing  pen  or  position  cursor.  Ihe 
tablet  is  a  magnetically  prebiased  surface  on  which  paper 
(film,  etc.)  may  be  placed.  Linder  the  surface  of  the  tablet 
is  a  X-Y  grid  of  magneto-strictive  wires,  that  sense  the 
position  of  the  cursor  or  writing  pen.  Hence,  a  point  on  the 
tablet  can  be  converted  to  a  digitial  position,  and  this 
information  transmitted  to  the  display  terminal  and/or  the 
computer.  The  hard  copy  unit  allows  the  operator  to  make  a 
permanent  high  contrast  copy  of  the  display  screen  image.  The 
copies  are  made  on  special  dry  silver  paper.  For  specific 
information  concerning  this  equipment,  see  References  b,  c  and 
d. 


An  interactive  computer  terminal  permits  direct  interplay 
between  the  operator  and  the  computer.  The  "ZDRAFT"  computer 
program  utilizes  this  interactive  capability.  The  program 
monitors  and  supervises  the  operator  by  writing  directions  and 
questions  to  the  terminal  display  screen.  The  operator 
controls  execution  and  responds  to  questions  with  inputs  from 
the  cueboard,  the  terminal  keyboard  and/cr  the  the  graphics 
tablet.  The  cueboard  is  a  program  generated  operation  menu 
which  lists  the  individual  program  functions  (see  Figure  1). 
Selection  of  a  cueboard  command  causes  the  specified  function 
to  execute.  A  command  may  be  input  to  the  computer  in  two 
ways.  First,  using  the  tablet  cursor,  a  selection  can  be  made 
from  a  cueboard  mounted  on  the  graphics  tablet.  Second,  the 
cueboard  cede  for  the  desired  command  can  be  typed  from  the 
terminal  keyboard.  The  cueboard  is  the  primary  instrunent  for 
running  the  "ZDRAFT  program.  Therefore,  by  selecting  the 
appropriate  cueboard  commands  and  responding  to  questions  and 
directions,  all  cf  the  the  following  proceedures  can  be 
duplicated. 

Reproduction  of  a  simple  line  drawing  on  the  terminal 
display  screen  is  a  primary  function  of  the  "ZDRAFT"  program. 
After  loading  the  program  and  answering  an  initial  set  of 
questions,  the  operator  car  elect  to  construct  a  drawing.  In 
response,  the  code  requests  the  operator  to  secure  a  drawing 
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to  the  graphics  tablet  and  to  input  position,  size  and  scale. 
This  information  initializes  the  graphics  tablet  and  the 
display  screen.  Now,  the  operator  can  attempt  to  represent 
the  drawing  with  a  series  of  line  segments.  A  line  segment  is 
a  set  of  points  connected  by  straight  lines  or  with  a  spline 
fit  curve.  For  a  specific  line  segment,  the  operator  selects  “ 
the  type  of  fit  and  inputs  the  points  from  the  tablet  drawing. 
These  line  segments  may  be  displayed  as  they  are  completed. 

For  drawings  symmetric  about  the  x-axis,  the  operator  can,  at 
his  or  her  option,  construct  half  of  the  drawing  and  instruct 
the  cede  to  generate  the  mirror  image.  The  code  simply 
produces  a  negative  y  image  of  the  drawing  data  and  adds  to 
the  existing  drawing  data  matrix.  This  capability  is  useful 
with  scaled  aircraft  planforms. 

When  the  drawing  is  complete,  the  boundaries  of  the 
drawing  displayed  on  the  screen  can  be  changed.  To  accomplish 
this,  the  operator  redefines  the  boundries  of  the  graphics 
tablet  drawing.  The  operator  can  increase  or  decrease  the 
area  of  the  drawing  shown  on  the  display  screen.  The  scale  of 
the  screen  drawing  will  change  to  utilize  the  entire  display 
screen.  Any  of  these  screen  drawings  can  be  saved  and 
retrieved  at  another  time.  That  is,  the  drawing  data  matrix 
is  written  to  a  specified  local  file,  which  can  be  made 
permanent  after  the  program  terminates.  To  revive  a  drawing, 
the  data  file  must  be  local.  At  the  operator's  request,  this 
local  file  is  read  into  the  program. 

Additional  "ZERAFT"  features  include,  drawing  a  border, 
drawing  a  x-y  axis,  calculating  and  drawing  a  scale  legend, 
and  adding  a  title.  Erawing  the  border  or  axis  only  requires 
the  operator  to  specify  the  cueboard  command.  When  selecting 
the  scale  legend  option,  the  operator  positions  or  repositions 
the  legend  on  the  drawing.  Cnee  the  position  is  fixed,  the 
operate  '  must  input  the  command  to  draw  the  legend.  The 
scaling  is  determined  by  the  computer  and  will  change,  if  the 
drawing  size  is  altered.  The  legend's  position,  however, 
relative  to  the  display  screen  is  unaffected  by  a  change  in 
the  drawing  boundaries.  Finally,  requesting  a  title  initiates 
a  series  ofq  set  questions  which  allows  the  operator  to  type  in 
lines  of  a  drawing  title.  The  display  screen  drawing  will 
resize  to  accommodate  the  title  which  is  automatically 
centered  over  the  drawing.  This  title  is  written  on  the 
screen  at  the  operator's  request. 

Another  basic  function  of  "ZDRAFT"  program  is  the 
superposition  of  a  VTCL  aircraft's  ground  plane  and  upwash 
flew  field  (i.e.  stagnation  lines  and  isocontour  lines)  over 
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an  appropriate  aircraft  planform  drawing.  This  stagnation  and 
isocontcur  information  is  generated  by  the  hot  gas  reingestion 
computer  program,  "REINGST"  (see  Reference  a)  and  stored  on 
permanenEefore  leading  "ZDRAFT"  on  the  computer,  the  operator 
makes  the  specific  data  file  a  local  file.  When  running 
"ZDRAFT”  this  data  file  is  re2d  by  the  program  at  the 
operator's  request.  With  the  planform  drawn  on  the  display 
screen,  the  operator  can  select  to  plot  the  stagnation  lines 
and/or  isocontcur  lines  over  the  planform. 


1.2  Program  Structure 


The  graphics  computer  program,  "ZDRAFT",  consists  of 
twenty  one  subroutines  and  functions.  These  subroutines  are 
listed  below  in  alphabetical  order. 


CAPTION 

CUEBRD 

CRAFT 

DRAWCUE 

DRAWISC 

ERASE 

FIT 

INPUT 

ISO 

LINES 

MESSAGE 


OPTION 

REVIVE 

SAVE 

SETCUE 

SETSCR 

SETTD 

STAGLN 

SYMEOL 

SYMMET 

VIEW’ 


In  addition,  two  computer  libraries  are  accessed  by 
"ZDRAFT".  These  are  the  Tektronix  PLCT1C  library  and  the 
in-house  TEKLIB2  library  (see  Reference  e).  A  simplified  flow 
chart  of  the  computer  code  is  shown  in  Figure  3. 
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1 .  L  Subrout  ir^  Lescriptiors 

CAPTICN  -  handles  the  Input,  storage  and  writing  of  drawing 
titles.  These  titles  are  input  from  the  terminal  keyboard  by 
the  operator. 

CUEEPD  -  transforms  the  operator's  cueboard  input  into  calls 
to  the  appropriate  subroutine. 

DFAFT  -  is  the  main  program  in  "ZDRAFT" .  It  initializes 
Tektronix  PLOT  1C  and  "ZDRAFT"  routines  and  presets  various 
variables,  switches  and  matrices.  Further,  the  operator  is 
permitted  to  obtain  a  copy  of  cueboard  and/cr  position  the 
cueboard  on  the  graphics  tablet.  Operational  control  of  the 
program  is  switched  to  the  cueboard. 

EFAWCUE  -  draws  a  cueboard  key  on  the  terminal  display  screen 
and  generates  a  hard  copy. 

ERAWISC  -  draws  the  ground  plane  iscccntour  lines  (e.g., 
temperature,  velocity,  etc.)  which  can  be  superimposed  over  an 
aircraft  planform. 

ERASE  -  sets  the  matrices  that  contain  line  segment 
information  to  zero.  This  erases  the  drawing  data  from 
memory,  but  dees  not  alter  the  present  drawing  size, 
coordinate  system  or  scale. 

FIT  -  controls  and  orders  the  spline  fit  of  line  segments  that 
describe  the  aircraft  planform. 

INPUT  -  recieves  positional  inputs  from  the  terminal  display 
screen  or  the  graphics  tablet  and/or  alpha-numeric  information 
from  the  terminal  keyboard.  This  information  is  transformed 
into  digital  data  that  is  usable  by  other  subroutines. 

ISC  -  reads  the  isoccntour  data  from  a  specified  file  and 
computes  the  necessary  spline  curves. 

LINES  -  controls  the  input  of  line  segments  which  describe  an 
aircraft  planform.  These  line  segments  are  a  series  of  points 
that  are  connected  by  a  linear  or  spline  curve  fit. 

NESSAGE  -  controls  all  program  messages  written  to  the 
terminal  display  screen. 

CPTICN  -  performs  several  drawing  functions.  These  include 
drawing  a  border,  drawing  x-y  axis  and  positioning  and  drawing 
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a  scale  legend. 

FEVIVE  -  reconstructs  a  previously  generated  planform 
configuration  from  data  cn  a  specified  input  file. 

SAVE  -  allows  the  operator  to  place  planform  data  on  a  local 
file.  This  local  file  can  be  made  permanent  or  copied  to  a 
magnetic  tape  for  long  term  storage. 

SETCUE  -  permits  the  operator  to  position  a  copy  of  the 
cuebesrd  key  cn  the  graphics  tablet. 

SETSCF.  -  sets  screen  limits  and  scale  factors  necessary  to 
generate  a  planfcrro  drawing  on  the  terminal  display  screen. 

SETTD  -  allows  the  operator  to  position  a  drawing  on  the 
graphics  tablet  and  describe  a  specific  coordinate  system  and 
scale  factor. 

STAGLN  -  reads  stagnation  line  data  from  a  specified  file  and 
draws  the  stagnation  lines.  These  stagnation  lines  can  be 
superimposed  over  an  aircraft  planform. 

SYMCL  -  generates  the  symbol  used  in  plotting  the  stagnation 
line  data  points. 

SY^KET  -  duplicates  existing  line  segments  but  with  negative  y 
values.  These  new  segments  are  added  to  the  existing  segment 
producing  an  image  which  is  symmetric  about  the  x-sxis. 

VIET.'  -  translates  the  line  segment  data  into  a  line  drawing  cn 
the  terminal  display  screen. 
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2.C  Conclusions 


The  graphical  code  "ZDRAFT"  is  a  useful  conceptual  design 
tool  for  visualizing  the  primary  flow  field  characteristics  of 
a  VTCL  aircraft  hovering  in  ground  effect.  "ZDRAFT"  can 
quickly  construct  a  scaled  computer  drawing  of  an  aircraft 
planfcrm  from  a  line  drawing.  Fajcr  flow  field 
characteristics  of  the  VIOL  aircraft,  such  as  stagnation 
lines,  upwash  flow  and  ground  flow  conditions  can  be  rapidly 
superimposed  over  this  scaled  computer  planfcrm.  Flow  field 
conditions  and  stagnation  line  locations  for  input  to  the 
"ZDRAFT"  code  are  generated  from  experimental  data  and/cr 
computations  from  another  computer  code.  "ZDRAFT"  has  been 
used  extensively  to  compare  experimental  data,  supplied  by 
industry  or  taken  from  technical  reports,  with  computer 
generated  results. 

Although  this  computer  code  was  written  specifically  for 
VTCL  aircraft  ground  footprint  studies,  it  was  designed  to  be 
easily  modified  for  application  to  other  tasks.  To  date, 
"ZDRAFT"  has  been  used  to  scale  aicraft  planfcrms  for  spotting 
studies  and  to  help  analyze  aircraft/engine  interface 
problems,  at  the  conceptual  design  stage. 
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FIGURE  1  -  Tablet  Outboard  Key 


SAMPLE  DRAWING 


Example  of  planform  drawing. 


N  AX-8  3 139-63 
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I  APPENDIX  A  -  User's  Guide 

l 

I 

j 

The  "ZERAFT"  computer  program  is  not  a  computational 
]  computer  code.  The  purpose  of  "ZERAFT"  is  to  facilitate  the 

j  visualization  of  ground  flow  fields  generated  by  VIOL 

;  aircraft.  The  flow  field  data  is  produced  by  another  computer 

program,  "FEINGST"  (Reference  a).  The  output  from  "REINGST" 
is  maintained  on  permanent  file  in  a  format  acceptable  to  the 
"ZERAFT"  code.  In  describing  the  use  and  operation  of 
"ZERAFT",  it  will  be  assumed  that  the  stagnation  line  and 
isocontour  data  stored  on  permanent  files,  will  be  retrieved 
to  local  files. 

"ZDRAFT"  is  run  from  a  interactive  graphic  computer 
terminal.  The  interactive  capability  allows  the  operator 
direct  control  over  program  execution.  Further,  this 
capability  allows  the  computer  code  to  monitor  operator  inputs 
and  to  veto  improper  requests.  In  "ZDRAFT,  the  operator 
controls  the  program  through  an  operation  cueboard  and  a 
question  and  answer  format.  The  cueboard  is  a  checkerboard 
drawing  with  key  words  and  three  digit  alpha-numeric  codes 
identifying  the  individual  blocks  (see  Figure  1).  This 
drawing  is  taped  to  the  graphics  tablet,  and  its  position  is 
input  to  the  program  with  the  tablet  cursor.  When  control  is 
switched  to  the  cueboard,  the  operator  can  select  a  specific 
block  with  the  tablet  cursor.  Alternately,  control  can  be 
passed  to  the  terminal  keyboard  and  the  corresponding 
alpha-numeric  code  can  be  entered  via  the  keyboard.  This  will 
cause  the  computer  to  execute  the  specified  action.  Examples 
of  these  actions  are  clearing  the  display  screen,  drawing  an 
aircraft  planform,  requesting  the  input  of  data  points  from 
the  tablet,  terminating  the  program,  reading  and  plotting 
stagnation  line  data,  generating  an  informative  message  on  the 
display  screen,  etc.  An  explanation  of  each  cueboard  consnand 
is  given  in  section  (A.1). 
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(A.1)  Explanation  of  Cueboard  Commands 


The  following  commands  are  available  to  the  operator  via 
the  tablet  cueboard  or  using  the  terminal  keyboard  codes  shown 
in  parenthesis: 

MESSAGES  (API )  -  acts  as  an  or./off  switch  for 
questions/instructions  that  normally  would  appear  on  the 
terminal  display  screen.  Error  messages,  however,  are  not 
suppressed  and  will  appear  if  something  is  done  incorrectly  by 
the  operator. 

SQ/GN.CFF  (A02)  -  switches  control  from  the  graphics  tablet 
cueboard  to  the  terminal  keyboard  and  display  screen,  or  vice 
versa . 

CF.AliCUE  (AC-)  -  clears  the  display  screen  and  constructs  a 
cueboard . 

SETCUE  (AO1:)  -  permits  the  operator  to  position  or  reposition 
the  cueboard  on  the  graphics  tablet. 

SETDRAWING  (A05)  -  allows  the  operator  to  secure  a  drawing  to 
the  graphics  tablet  and  to  specify  size,  scale  and  axis 
system. 

SETSCREEN  (AG6)  -  sets  screen  limits  and  scale  factors 
necessary  to  generate  a  drawing  cn  the  terminal  display 
screen. 

EQRDER  (AQ7)  -  draws  a  border  around  the  display  screen 
drawing . 

ERAWAXIS  (A08)  -  draws  the  x-y  axis  on  the  display  screen 
drawing.  The  axes  are  drawn  with  a  dash-dct  line. 

CLEAR  (ACQ)  -  clears  the  display  screen.  No  information  is 
cleared  from  memory. 

HAFECGPY  (AID)  -  produces  a  hard  copy  of  current  screen 
information. 

NEWLINE  (E01 )  -  sets  the  program  to  create  a  line  segment 
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unrelated  to  previous  segments,  Next,  the  operator  must 
select  the  LINEAR  or  the  SPLINE  cue. 

SPLINE  (BC2)  -  permits  a  series  of  points  from  the  drawing  to 
be  input  and  fitted  with  a  spline  curve.  (NOTE:  Values  of  X 
must  be  increasing.)  Any  other  cueboard  command  ends  the  line 
segment . 

LINEAR  (BC^)  -  permits  a  series  of  points  from  the  drawing  to 
be  input  and  fitted  with  straight  lines.  Any  other  cueboard 
command  ends  the  line  segment. 

ERA. WALL  (BG4)  -  draws  all  existing  line  segments  on  the 
display  screen. 

DRAW  (BCE)  -  draws  line  segments  on  display  screen  starting 
from  the  end  of  last  line  segment  drawn. 

X-SYfr  ( EC6 )  -  Causes  the  computer  to  symmetrically  reproduce 
the  drawing  about  the  X-axis. 

TITLE  (E08)  -  permits  the  operator  to  input ,  f rom  the  terminal 
keyboard,  drawing  titles.  The  title  is  input  one  line  at  a 
time,  and  the  character  size  is  specified  for  each  line. 

There  are  four  character  sizes  defined  by  the  integers  from  1 
to  4.  The  largest  size  is  1  and  the  smallest  is  4, 

WRITETITLE  (EC10)  -  causes  the  drawing  title  to  be  written  on 
the  display  screen.  The  drawing  will  be  resized  and 
repositioned  to  accommodate  the  title.  This  is  not  automatic, 
however,  and  the  drawing  should  be  reconstructed  after  the 
title  is  written. 

SAVE  (C01 )  -  writes  the  existing  planform  data  to  a  local 
file.  The  operator  must  input  the  tape  number  which 
corresponds  to  the  local  file.  Tape  numbers  from  5  to  15  are 
valid. 

REVIVE  (CC2)  -  reads  in  a  previously  saved  planforn  from  a 
local  file.  The  operator  must  input  the  tape  number  which 
corresponds  to  the  local  file.  Tape  numbers  from  5  to  15  are 
valid . 

ERASE  (CC")  -  sets  all  line  segment  data  to  zero.  This  erases 
the  line  segment  data  from  memory,  but  does  not  alter  present 
drawing  size,  coordinate  system,  scale,  or  actual  drawing 
already  existing  on  the  screen. 


17 


NADC-80 109-60 


STAGTAFE  (CC*0  -  allows  the  operator  to  specify  the  tape 
number  which  corresponds  to  a  local  file  containing  stagnation 
line  data.  Tape  numbers  from  5  to  15  are  valid. 

DRAKSTAG  (COS)  -  reads  the  stagnation  line  tape  previously 
specified  and  plots  the  data  to  the  same  scale  as  the  planformf 
drawing . 

PC^JXIQWKEY  (CC6)  -  allows  operator  to  position  the  scale  bar 
legend  at  a  convenient  location  on  the  drawing. 

CFAV.KEY  (CC?)  -  determinps  t.hp  proper 

size  for  the  scale 

legend  and  draws  it  on  the  screen  at  the  specified  location. 

ISQTAFg  (C08)  -  allows  isocontour  data  to  be  read  from  a  local 
file  and  performs  the  computations  necessary  to  spline  fit 
this  data.  The  operator  must  input  the  tape  number  which 
corresponds  to  the  local  file.  Tape  numbers  from  5  to  15  are 
valid . 

£RAV.'ICC  (C09)  -  draws  the  previously  compiled  isocontour  lines 
on  the  screen  drawing. 

STOP  U21C1  -  terminates  the  program. 
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(A. 2)  Drawing  Planform  Configuration 


The  "ZDRAFT"  computer  code  has  the  capability  of 
computerizing  a  simple  line  drawing.  That  is,  the  code  allows 
the  user  to  transform  a  line  drawing  into  a  set  of  variables 
and  a  matrix  of  points.  Having  transformed  the  drawing  into 
numerical  data,  the  code  interprets  the  information  and 
produces  a  line  drawing  on  the  terminal  display  screen. 
Further,  the  code  can  alter  the  size  and  scale,  draw  a  border 
and  a  x-y  axis,  generate  a  scale  legend,  add  titles, 
superimpose  other  drawings,  etc.  These  features  are  used  in 
the  construction  of  an  aircraft  planfcrm. 

Assume  the  initial  steps  in  running  "ZDRAFT"  are 
canplete.  The  process  of  computerizing  a  scaled  aircraft 
planform  is  initiated  by  selecting  the  cueboard  command, 
SETCRAWING.  The  initial  steps  are  predetermined  and 
instructions  are  output  to  the  display  screen.  First,  the 
operator  is  directed  to  secure  the  drawing  on  the  graphics 
tablet  and  using  the  tablet  cursor,  specify  the  lower  left  and 
upper  right  corners  of  the  drawing.  Next,  the  operator  is 
requested  to  specify  two  points  on  the  drawing  and  to  input 
their  x-y  values.  Finally,  the  operator  must  designate  the 
units  of  linear  dimensions.  With  this  information  the  cede 
sets  scaling  factors  and  initializes  the  display  screen.  At 
this  point,  control  is  returned  to  the  operator  and 
construction  of  planform  drawing  can  start. 

The  aircraft  planform  is  described  by  a  series  of  line 
segments.  These  line  segments  are  defined  by  a  set  of  points 
which  are  connected  by  either  straight  lines  or  a  spline  fit 
curve.  To  begin  construction  of  the  planform  drawing  the 
cueboard  command  NEWLINE  is  selected .  This  primes  the  code 
for  the  input  of  in  a  new  line  segment.  The  operator  is  then 
requested  to  select  the  LINEAR  or  the  SPLINE  command.  This 
determines  the  fit  for  the  following  set  of  drawing  points. 
Using  the  tablet  cursor,  the  operator  selects  points  from  the 
planform  drawing.  Selection  of  any  cueboard  block  terminates 
this  set  of  points.  The  LINEAR  or  SPLINE  command  selected 
after  a  set  of  points,  will  initiate  another  set  of  points. 

The  first  point  of  this  second  set  is  identical  to  the  last 
point  of  the  preceding  set.  To  input  a  line  segment 
unconnected  to  preceding  segments,  NEWLINE  must  be  the  first 
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command.  Mien  complete  the  drawing  data  can  be  written  to  a 
local  file  by  specifying  SAVE.  This  file  can  be  made 
permanent  after  termination  of  the  program. 

The  following  information  details  the  exact  input  and 
response  to  generate  a  computer  drawing  with  a  bar  scale 
legend,  title  information,  a  border,  and  an  axis  system. 
Examples  of  the  drawing  partially  complete  are  also  given  in 
Figures  A1  through  A5.  Note,  the  symbol,  "cr" , indicates  that 
a  carriage  return  must  be  input  from  the  terminal  keyboard. 


type....  CALL,PAES9.  "cr" 
(screen  clears) 


prompt . . 

do  you  wish  a  copy 

of  the  graphics  tablet  cueboard? 

type  y(yes)  cr  n(no),  and  "cr". 

type. . . . 

Y  "cr" 

prompt . . 

is  hard  copier  sufficiently  warm? 
type  y(yes)  or  n(no),  and  "cr". 

type .... 

Y  "cr" 

(cueboard  is  drawn  on  the  terminal  display  screen 
and  a  hardcopy  is  produced) 

prompt..  do  you  wish  to  position 

the  graphics  tablet  cueboard? 
type  y(yes)  cr  n(no) ,  and  "cr". 

type....  Y  "cr" 

prompt..  input  lower  left  and  lower  right 
corners  of  cueboard? 

(secure  copy  cueboard  on  the  graphics  tablet 
and  input  points  with  tablet  cursor) 

(cueboard  is  now  operative) 
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cuebrd. .  SETDRAWING 

(use  the  tablet  cursor  to  make  selection  from  cue board) 

prompt..  place  drawing  on  the  graphics  tablet. 

(secure  drawing  on  graphics  tablet) 

prompt . .  input  lower  left  and  upper  right 
corners  of  drawing. 

(input  points  with  cursor) 

prompt..  specify  point  on  drawing 

and  type  in  (x,y)  coordinates. 

(input  point  with  cursor) 

type....  0.0  ,  C.O  "cr" 

prompt..  specify  another  point 

and  type  in  (x,y)  coordinates. 

(input  point  with  cursor) 

type....  1.2125  ,  0.0  "cr" 

prompt..  type  unit  of  dimensions  (20  characters  or  less) 
type....  FEET  "cr" 

(construction  of  aircraft  planform  can  now  begin) 
cuebrd . .  NEWLINE 

prompt..  new  line  started  select  linear  or  spline, 
cuebrd . .  SPLINE 

(use  tablet  cursor  to  select  points  from  drawing  on  tablet, 
points  will  be  connected  with  a  spline  fit, 
points  must  have  increasing  values  of  x 
with  a  minimum  of  three  points) 

(for  the  present  example,  start  at  the  aircraft  nose, 
input  points) 
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(starts  a  new  spline  curve  that  is  connected 
to  the  previous  curve,  input  points) 

cuebrd..  LINEAR 

(select  points  to  be  connected  with  straight  lines, 
lines  connect  with  preceding  curve,  input  points) 

cuebrd..  SPLINE 

(starts  new  spline  fit  that  is  connected  to 
preceding  curve,  input  points) 

cuebrd..  LINEAR 

(starts  another  series  of  straight  lines,  input  points) 
cuebrd . .  DRAW 

(draws  all  curves  input,  since  last  draw  command) 
cuebrd . .  HARDCOPY 
(see  Figure  A1) 

cuebrd..  NEWLINE 

prompt..  new  line  started  select  linear  or  spline, 
cuebrd..  LINEAR 

(starts  a  series  of  straight  lines  not  connected 
to  the  preceding  curve,  input  points) 

cuebrd..  NEWLINE 

prompt..  new  line  started  select  linear  or  spline, 
cuebrd . .  LINEAR 
(input  points) 
cuebrd..  SFLINE 
(input  points) 
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cuebrd..  CRAW 
cuebrd..  HARDCOPY 
(see  Figure  A2) 

cuebrd . .  X-SYM 

(this  generates  a  negative  y  image  of  the  existing 
drawing  data,  producing  an  image  symmetric 
about  the  x-axis) 

cuebrd..  DRAW 

cuebrd..  KARCCCPY 

(see  Figure  A3) 

cuebrd . .  SAVE 

type ....  5  "cr" 

(places  drawing  data  on  tape5,  this  local  file 
can  be  made  permanent) 

cuebrd . .  POSITIONKEY 

prompt..  set  scale  position . 

(using  the  tablet  cursor,  select  a  position  on  the  drawing 
for  the  scale  legend) 

cuebrd . .  DRAWKEY 

(the  scale  legend  is  drawn  on  the  display  screen) 
cuebrd..  HARDCOPY 
(see  Figure  A1*) 

cuebrd..  CLEAR 
(screen  clears) 
cuebrd . .  TITLE 
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prompt..  input  title  lines,  character  is  preset  to 

(four  character  sizes  are  available,  1  through  4, 
larger  numbers  represent  smaller  character  sizes) 

prompt..  input  character  size. 

eof  default  is  previous  character  size. 

type ....  1  "cr" 

prompt..  type  title  line 

type _  SAMPLE  DRAWING  "cr" 

prompt..  sample  drawing 

prompt..  is  this  line  correct? 

type  y(yes)  or  n(no),  and  "cr". 

type....  Y  "cr" 

prompt..  input  character  size. 

eof  default  is  previous  character  size. 

type ....  2  "cr" 

prompt..  type  title  line 

type _  FLAT  PLATE  TEST  MODEL  "cr" 

prompt..  flat  plate  test  model 

prompt..  is  this  line  correct? 

type  y(yes)  or  n(no),  and  "cr". 

type ....  Y  "cr" 

prompt..  input  character  size. 

eof  default  is  previous  character  size. 

type....  4  "cr" 

prompt..  type  title  line 

type....  16  JANUARY  I960  "cr" 

16  January  I960 


prompt . . 
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prompt..  is  this  line  correct? 

type  y(yes)  or  n(nc),  and  "cr". 

type. . . .  Y  "cr" 

prompt..  input  character  size. 

eof  default  is  previous  character  size. 

type ....  "cr" 

prompt..  type  title  line 

type ....  "cr" 

(a  return  of  carriage  when  a  title  line  is  requested, 
ends  title  line  inputs) 

(screen  clears  and  title  is  written) 

cuebrd . .  HARDCOPY 
(see  Figure  A5) 

cuebrd . .  EORDER 
(border  is  drawn) 
cuebrd . .  CRAWAXIS 
(x-y  axis  is  drawn) 
cuebrd..  DRAWKEY 
(scale  legend  is  drawn) 
cuebrd . .  DRAWALL 
(plan form  is  drawn) 
cuebrd..  HARDCOPY 
(see  Figure  A6) 
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(A. 3)  Superimposing  Stagnation  and  Isocontour  Lines 


This  example  demonstrates  the  superposition  of  stagnation 
lines  over  a  specific  aircraft  planform  (see  Appendix  E.1). 

The  stagnation  line  data  was  previously  generated  by  "REINGST" 
(Reference  a)  and  stored  on  permanent  file  or  magnetic  tape. 
The  previously  developed  aircraft  planform  was  also  stored  on 
permanent  file  or  tape.  To  be  read  by  the  "ZDRAFT"  program, 
these  data  files  must  be  placed  on  local  files.  Appropriate 
local  file  names  are  TAPE5  throught  TAPE15.  Assume  the 
aircraft  planform  data  is  on  TAPE5,  the  ground  plane 
stagnation  line  data  is  on  TAPE6  and  the  undersurface 
stagnation  line  data  is  on  TAPE7.  After  repeating  the  initial 
inputs,  the  following  commands  will  generate  a  drawing  of  the 
planform  and  the  stagnation  lines. 


cuebrd . .  STAGTAPE 

prompt..  input  tape  number  that  contains  stagnation 
line  data. 

type,...  6  "CR" 

cuebrd . .  CLEAR 

(screen  clears) 

cuebrd . .  EORDER 

(border  is  drawn) 

cuebrd . .  CRAWALL 

(aircraft  planform  is  drawn) 

cuebrd . .  DRAW AXIS 

(x-y  axis  is  drawn) 

cuebrd..  DRAWSTAG 
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(stagnation  lines  are  plotted) 
cuebrd . .  HARDCOPY 
(see  Figure  A7) 
cuebrd . .  STOP 

prompt..  step  requested  from  cueboard. 

(execution  is  terminated) 

Figure  A7  illustrates  the  stagnation  line  data  generated 
by  the  computer  program,  "REINGST"  (Reference  a).  "REINGST" 
produces  a  stagnation  line  for  each  sequential  pair  of 
nozzles.  For  a  simple  two  nozzle  case,  stagnation  lines  for 
nozzle  pairs  1-2  and  2-1  are  generated.  These  stagnation 
lines  would  be  identical.  In  the  complex  six  nozzle  system, 
stagnation  lines  are  calculated  for  nozzle  pairs  1-2,  2-3, 

2_U,  11-5,  5-6  and  6-1.  Eecause  "REINGST"  dees  not  compensate 
for  the  interference  between  stagnation  lines,  portions  of  the 
stagnation  lines  are  imaginary.  These  imaginary  sections  can 
be  determined  by  plotting  the  stagnation  lines.  The  section 
of  a  stagnation  line  plotted  before  the  intersection  with 
another  line  is  imaginary.  Complex  nozzle  configurations  may 
have  a  series  of  stagnation  line  intersections.  Determining 
the  governing  intersection  may  be  difficult. 

In  the  present  illustration  the  three  stagnation  lines 
intersect  at  a  single  point  on  the  x-axis  (see  Figure  A7). 
Hence,  locating  the  non-existent  portion  of  the  stagnation 
lines  is  relatively  simple.  The  stagnation  line  of  nozzle 
pair  1-2  plots  from  top  to  bottom;  therefore,  the  section 
above  the  x-axis  is  imaginary.  Similarly,  the  section  of  the 
3-1  stagnation  line  below  the  x-axis  must  be  eliminated.  For 
the  nozzle  pair  2-3,  the  segement  to  the  left  of  the 
intersection  should  not  exist.  Figures  A8  and  AID  show  a 
portion  of  the  uncorrected  data  file  for  stagnation  lines  1-2 
and  2-3,  respectively.  Using  the  text  editor,  the  imaginary 
sections  can  be  deleted  from  the  data  files.  The  revised  data 
files  are  shown  in  Figures  A9  and  All. 

This  problem  of  imaginary  stagnation  line  segments,  also, 
occurs  with  the  undersurface  stagnation  lines.  Determination 
of  the  imaginary  portions  of  these  lines  may  prove  more 
difficult  than  the  ground  plane  lines.  Therefore,  the 
undersurface  line  data  should  be  revised  after  the  ground 
plane  data.  The  ground  plane  revisions  can  then  be  used  as  a 
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guide  in  eliminating  the  non-existent  undersurface  sections. 

The  corrected  stagnation  line  data  is  on  local  files 
TAPE6  and  TAPE7.  The  isocontour  data  is  taken  from  permanent 
file  and  placed  on  local  file,  TAPEtO.  Now,  a  final  drawing 
of  the  aircraft  planform  with  superposed  stagnation  lines  and 
isocontour  lines  can  be  constructed.  Note,  the  cueboard 
commands  are  now  input  from  the  terminal  keyboard. 


type _  CALL , PABS9 .  "cr" 

(screen  clears) 


prompt..  do  you  wish  a  copy  of  the  cueboard? 
type  y(yes)  or  n(no),  and  "cr”. 

type....  Y  "cr" 

prompt..  do  you  wish  to  position  the  cueboard? 
type  y(yes)  or  n(no),  and  "cr". 

type....  N  "cr" 

prompt..  input  cue  codes  from  terminal  keyboard, 
(cue  codes  are  shown  on  the  cueboard) 


type....  C2  "cr" 

(cue  -  revive) 

prompt..  input  tape  number  that  contains  drawing  data, 
type....  5  "cr" 
type....  B8  "cr" 

(cue  -  title) 

prompt..  input  title  lines,  character  is  preset  to  ?. 

(four  character  sizes  are  available,  1  through  4, 
larger  numbers  represent  smaller  character  sizes) 

prompt..  input  character  size. 
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eof  default  is  previous  character  size. 

type....  1  "cr" 

prompt..  type  title  line. 

type....  SAMPLE  DRAWING  "cr" 

prompt..  sample  drawing 

is  this  line  correct? 

type  y(yes)  or  n(no),  and  "cr”. 

type.. . .  Y  ”cr" 

prompt..  input  character  si2e. 

eof  default  is  previous  character  size. 

type....  2  "cr” 

prompt..  type  title  line. 

type ....  FLAT  PLATE  TEST  MODEL  "cr" 

prompt..  flat  plate  test  model 

prompt..  is  this  line  correct? 

type  y(yes)  or  n(no),  and  "cr". 

type. . . .  Y  "cr" 

prompt..  input  character  size. 

eof  default  is  previous  character  size. 

type ....  4  "cr" 

prompt..  type  title  line. 

type....  16  JANUARY  1980  "cr" 

prompt..  16  january  1980 

prompt..  is  this  line  correct? 

type  y(yes)  or  n(no),  and  "cr". 

type ....  Y  "cr" 


prompt . . 


input  character  size. 

eof  default  is  previous  character  size. 
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type....  "cr" 

prompt..  type  title  line. 

type....  "cr” 

(a  return  of  carriage  when  a  title  line  is  requested, 
ends  title  line  inputs) 

(screen  clear  and  title  is  written)) 

type ....  A7  "cr" 

(cue  -  border, 
border  is  drawn) 

type ....  A8  "cr" 

(cue  -  drawaxis, 
x-y  axis  is  drawn) 

type ....  B4  "cr" 

(cue  -  drawall , 
aircraft  planform  is  drawn) 

type....  A1  "cr" 

(cue  -  messages, 

screen  messages  will  not  be  printed, 
except  error  messages) 

type ....  C4  "cr" 

(cue  -  stagtape, 

stagnation  line  data  tape  nunber  is  requested) 

type ....  6  "cr" 

type ....  C5  "cr" 

(cue  -  drawstag, 
stagnation  lines  are  printed) 

type ....  C4  "cr" 


(cue  -  stagtape, 
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stagnation  line  data  tape  number  is  requested) 
type....  7  "cr" 
type....  C5  "cr” 

(cue  -  drawstag, 
stagnation  lines  are  plotted) 

type ....  C6  "cr" 

(cue  -  positionkey, 
screen  cursors  appear, 

use  screen  cursors  to  postiton  scale  legend) 
type ....  P 

(do  not  return  carriage) 
type....  C7  "cr" 

(cue  -  drawkey, 
scale  legend  is  drawn) 

type....  A 10  "cr" 

(cue  -  hardcopy, 
see  Figure  A 12) 

type....  AS  "cr" 

(cue  -  clear, 
screen  clears) 

type....  A1  "cr" 

(cue  -  messages, 
screen  messages  are  turned  on) 

type....  C8  "cr" 

(cue  -  isotape) 

prompt..  input  tape  number  containing  iso  data, 
type....  10  "cr" 

prompt..  this  is  a  test  isocontour  line  tape 
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read  this  dat2? 

type  y(yes)  or  n(no),  and  "cr" . 
type ....  Y  "cr" 
type ....  C4  "cr" 

(cue  -  stagtape) 

prompt..  input  tape  nunber  that  contains  stagnation 
line  data. 

type ....  6  "cr" 

type ....  A9  "cr" 

(cue  -  clear, 
screen  clears) 

type....  A8  "cr"" 

(cue  -  drawaxis, 
x-y  axis  is  drawn) 

type....  A7  "CR" 

(cue  -  border, 
border  is  drawn) 

type....  B9  "cr" 

(cue  -  writetitle, 
title  is  written) 

type ....  B4  "cr" 

(cue  -  drawall, 
aircraft  pi an form  is  drawn) 

type....  A1  "cr" 

(cue  -  messages, 

screen  messages  will  not  be  printed, 
except  error  messages) 

type ....  C5  "cr" 

(cue  -  drawstag, 
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stagnation  lines  are  plotted) 

type....  C9  "cr" 

(cue  -  drawiso, 
isocontour  lines  are  drawn) 

type ....  C6  "cr” 

(cue  -  positionkey, 
screen  cursors  appear, 

use  screen  cursors  to  pcstitcn  scale  legend) 
type ....  P 

(do  not  return  carriage) 

type....  C7  "cr" 

(cue  -  drawkey, 
scale  legend  is  drawn) 

type....  A10  "cr" 

(cue  -  hardcopy, 
see  Figure  A13) 

type....  DIO  "cr" 

(cue  -  stop) 

prompt..  stop  requested  from  cueboard 
(execution  is  terminated) 
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Hf  J  LIME  ?E«iNENT  STARTED  SELECT  LINEAR  OR  SPLINE. 


FIGURE  A|  -  Partial  Drawing 


FIGURE  A2  -  Upper  half  of  planform 


FIGURE  A3  -  Symmetric  planform  automatically  produced 
about  x-axis  by  subroutine  "SYMMET". 


NT  STARTED  SELECT  LINEAR  OR  SPLINE. 
II T  STARTED  SELECT  LINEAR  OR  SPLINE. 
NT  SThRTEO  SELECT  LINEAR  OR  SPLINE. 


FIGURE  *  Scale  positioned  and  drawn. 


SAMPLE  DRAWING 

iT  PLATE  TEST  MODEL 


FIGURE  A5  -  Title  information  developed  and 
d  rown . 


AMPLE  DRAWING 


FIGURE  A6  -  Plan form  drawing  completed 
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FIGURE  A7  -  Planform  drawing  showing  impingement  points 
and  all  ground  plane  stagnation  line  data. 
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FIGURE  A8  -  Uncorrected  ground  plane  stagnation  line  data 
Data  for  nozzles  1  and  2. 
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FIGURE  A9  -  Corrected  ground  plane  stagnation  line  data. 
Data  for  nozzles  1  and  2. 


DATA  X  Y 

POINT  VALUE  VALUE 
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FIGURE  A10  -  Uncorrected  ground  plane  stagnation  line  data. 
Data  for  nozzles  2  and  3. 
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FIGURE  All  -  Corrected  ground  plane  stagnation  line  data 
Data  for  nozzles  2  and  3. 


SAMPLE  DRAWING 

iT  PLATE  TEST  MODEL 


FIGURE  A12  -  Completed  drawing  showing  ground  p 
and  undersurface  stagnation  lines. 


SAMPLE  DRAWING 


FIGURE  A13  -  Completed  drawing  showing  ground  plane 
stagnation  lines  and  isocontour  lines. 


AFPENDIX  E  -  "ZERAFT"  COMPUTER  PROGRAM 


(B.1)  Listing  of  Procedure  Files 

Various  procedure  files  necessary  to  compile,  segment, 
load  and  run  the  "ZERAFT"  code  are  listed  below.  Permanent 
file,  ZDRAFT9,  contains  the  fortran  pncgram  "ZERAFT".  The 
following  procedure  file,  PZD9,  packs  and  compiles  the  fcrtran 
code.  The  fortran  compiled  version  is  saved  on  file,  ZD9REL4, 
and  the  fcrtran  listing  is  written  tc  file,  CUT. 

FZE9 

GET . ZERAFT? . 

FACK,ZDRAFT9. 

FTN4 ( I =ZDRAFT9 , R= 3 , L=0UT , E=ZD9REL4 ) 

SAVE ,ZD9EEL4. 

Next,  the  proceedure  file,  PESC-9,  segments  the  cede  and 
saves  the  absolute  version  on  ZD9AES. 

PSEG9 

GET, SEGDIR9 , ZD9REL4 , XTAPE. 

GET, SEGREF, PL 1CLIE/UN=SYSTEE. 

GET , TEKLIE2/UN=VT 178 1 . 

CCPYEF, XTAPE, TAPE  1. 

CCPYEF, XTAPE. TAFE2. 

REWIND, TAFE1, TAPES. 

MAP, PART. 

SEGREF , ZD9REL4 , SEGCUT . 

SEGLCAD(I=SEGDIR9) 

LIBL0AD( PL 1CLIE , CHECK) 

LIBLCAD( PL 1CLIE , LAEEL) 

LDSET(LIE=PL 1CLIE/TEKLIB2/PL 1CLIE/TEKLIE2 , MAP=/MAPP ) 
LCAD,ZD9REL4. 

NCGC,ZE9AES. 

The  following  is  the  segmentation  lead  directions. 


SEGDIP9. 

ER1 

TREE 

CRAWISO 

DPAWISC 

INCLUDE 

ISO, SPLNC1, UPDATE 

CRAWISC 

GLOBAL 

BLKISO-SAVE 

ER2 

TREE 

ERASE 

ERASE 

INCLUDE 

FIT , LINES , REVIVE , SETTD , SFLNC 1 , SYNMET , UPDATE , VIEW 
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PC'? 

TREE 

CAPTION 

CAPTION 

INCLJDE 

C  PT I  ON ,  5TAGLN ,  SYME  CL 

CAPTION 

GLOBAL 

BLKCAPT-SAVE 

3F.4 

TREE 

DRAWC'JE 

DRAWC'JE 

IMCLJDE 

SETC  JE 

TR:JNK 

TREE 

ZDRAFT-(PR1,BR2,ER2,ER4) 

Z DR AFT 

INCLJDE 

GLOBAL 

END 

CJE3RD, MESSAGE,  INPJT 

ELK ,  BLKJ ,  ELK  RTS ,  ELKSCAL,  BLKSD,  BLKTD,  BLKC'JE ,  TKTRNX 

Finally,  the  proceed ure  file  ti  run  the  segmented 
absolute  version  if  the  "ZDRAFT"  computer  cide. 


PAB5-9 

GET.ZD9ABS, XTAPE. 
COPYBF , XTA PE , TA  PE  1 . 
CC  PYBF ,  XTA  PE ,  TA  PE2 . 
REWIND,  TAPE  1,TA  PEE. 
MAP, PART. 

ZD9A.ES. 
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(E.2)  Listing  cf  the  Input  File 


XTAFE  is  a  multi-file  permanent  file  that  contains 
information  input  to  the  "ZDRAFT"  code.  The  first  file 
contains  the  messages  that  the  code  outputs  to  the  terminal 
display  screen.  The  second  contains  information  pertaining  to 
the  structure  of  the  cuebcard. 

TAPE! 

12CC  IEAUD,  TRANSMISSION  RATE  -  CHARACTERS  PER  SECCND 
tlCS6  KAXSR,  NUKE EP  CF  ADDRESSABLE  FCINTS 
'  ITERK ,  TERMINAL  I  DENT  IF  ICATICN  NUKEER 
■  ISIZE,  CHARACTER  SIZE  (MCI 4/ 15  CKLY ) 

C  LCCCS ,  LOCAL  DISPLAY  CF  TAELET  POINT  CN  TERMINAL  (C  -  KC ) ( 1  -  YES) 

C  IFEN.  TAELET  MODE  (C  -  PEN  MODE)  (1  -  PRESENCE  MODE) 

Cl  PC  DC  YOU  WISH  A  CCPY  CF  THE  CUEBCARD  ?  TYPE  Y ( YES )  OR  N(NC),  AND  "CF". 

C2  PC  IS  HAFDCCFIER  CN  AND  SUFFICIENTLY  WARM  ?  TYFE  Y ( YES )  CR  N(NC),  AND  "CF" 

C-  PC  TURN  CN  PiA RECOPIER .  WHEN  WARM  TYPE  Y  AND  "CR". 

CU  PC  IS  CCPY  SATISFACTORY  ?  TYFE  Y(YES)  CR  N(KC),  AND  "CR". 

C5  P 

C6  F  POINTER  IMPROPERLY  POSITIONED,  TRY  AGAIN. 

C7  P  INPUT  LOWER  LEFT  AND  LOWER  RIGHT  CORNERS  CF  CUEBCARD. 

Cc  INPUT  CUE  CCCES  FROM  TERMINAL  KEYBOARD. 

C9  FS  CUEECAFD  DATA  NOT  FOUND  CN  TAFE2. 

T  PC  DC  YCU  WISH  TO  FCSITIGN  THE  CUEBCARD?  TYFE  Y ( YES )  CR  K(NC),  AND  "CR". 

11  INPUT  TAFE  N’UMEER  CN  WHICH  DRAWING  DATA  IS  TC  EE  SAVED. 

12  PS  TAELET  CUEECARC  DATA  NOT  FOUND  CN  TAPE;. 

1;  PS  NUTTER  CF  TAELET  CUEECARD  ROW'S  EXCEEDS  MATRIX  DIKENSICN. 
ft  PS  NUTTER  CF  TAELET  CUEECAFD  COLUMNS  EXCEEDS  MATRIX  DIMENSION. 

15  PS  NUTTER  CF  TAELET  CUEBCARD  A/N  CHARACTERS  EXCEEDS  MATRIX  DIKENSICN. 

16  PS  CAFTICN  TC  LCNG  FOP  TAELET  CUE  ELCCK. 

17  P  BLANK  CUE  RECUESTED.  TRY  AGAIN. 

IS  PLACE  DRAWING  CN  THE  GRAPHICS  TAELET. 

ic  INPUT  LOWER  LEFT  AND  UFPER  RIGHT  CORNERS  CF  THE  DRAWING. 

2C  SFECIFY  POINT  CN  DRAWING  AND  TYPE  IN  (X,Y)  COORDINATES. 

21  SFECIFY  ANOTHER  FOINT  AND  TYPE  IN  (X.Y)  CCCFEINATFS. 

22  PS  DISTANCE  EETWEEN  SELECTED  FCIMTS  CANNOT  EE  ZERC. 

2-  F  DRAWINC  DIKENSICNS  HAVF  NCT  EEEN  SFFCIFIED. 

2r  F  INSUFFICIENT  MUTTER  OF  FCINTS  FCR  SPLINE." 

26  FC  EC  YCU  WISH  TC  AECRT  THIS  LINE  SEGMENT  ?  TYFE  Y(YES)  CR  N(NC),  AND  "CF" 

27  ?  CURRENT  LINE  SEGMENT  AECRTED. 

28  P  INPUT  ACDTICNAL  FCINTS  ECR  SPLINE  CURVE. 

29  NEW  LINE  SEGMENT  STARTED  SELECT  LINEAR  CF  SPLINE. 
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33  P  MAXIMUM  MUMPER  CF  POINTS  HAS  BEEN  EXCEEDED. 

31  P  MAXIM  JM  N'JMEER  CF  SPLINES  HAS  PEE?!  EXCEEDED. 

32  P  TWC  CONSECUTIVE  MCODES  EC'JAL  3. 

33  P  NCCDE  IS  NOT  -5  ,  -1  ,  3  ,  1  ,  5  . 

34  P  NCCDE  SHOULD  3E  EC'JAL  TO  -5  . 

35  P  VALDES  CF  X  V'JST  EE  INCREASING  FCR  SPLINE  FIT. 

?6  Q  ERASE  DRAWING  ?  TYPE  Y(YES)  OR  N(NC) ,  AND  "CR". 

37  P  THE  C'JEBCARD  HAS  NCT  BEEN  POSITIONED. 

3?  INPUT  TAPE  NUMBER  THAT  CONTAINS  DRAWING  DATA. 

39  P  EOF  ENCOUNTERED  READING  DRAWING  DATA  TAPE. 

43  IN'P'JT  TAPE  NUMBER  THAT  CONTAINS  STAGNATION  LINE  DATA. 

41  P  TAFE  NUMBER  CONTAINING  STAGNATION  DATA  HAS  NCT  BEEN  SPEC! 
u2  P  SCREEN  SCALE  IS  LESS  THAN  1.3*E-13. 

43  P  SCREEN  SCALE  IS  GREATER  THAN  1.3“E13. 
u5  SET  SCALE  KEY  POSITION. 

46  TYPE  UNIT  OF  DIMENSIONS  (23  CHARACTERS  CR  LESS). 

47  P  INPUT  CHARACTER  SIZE.  EOF  DEFAULT  IS  PREVIOUS  CHARACTER  S 

48  P  TYPE  TITLE  LINE. 

49  PQ  IS  THIS  LINE  CORRECT  ?  TYPE  Y(YES)  OR  N(MC) ,  AND  "CR". 

53  P  CHANGE  CHARACTER  SIZE  IF  DESIRED. 

51  P  RETYPE  LAST  LINE. 

52  P  INP;JT  TITLE  LINES.  CHARACTER  IS  PRESET  TO  3- 

53  INPUT  TAPE  NUMBER  CONTAINING  ISO  DATA. 

54  PC  READ  THIS  DATA  ?  TYPE  Y (YES )  OR  H(HC),  AND  "CP". 

55  P  ECF  ENCOUNTERED  READING  ISC  DATA  TAPE. 

56  P  NUMBER  OF  VARIABLES  EXCEEDS  MAXIMUM  LIMIT  CF  23. 

57  P  NUMBER  OF  ANGLES  EXCEEDS  MAXIMUM  LIMIT  OF  23. 

5C  P  NUMBER  CF  ISC  CONTOUR  LINES  EXCEEDS  MAXIM  JM  LIMIT  OF  23. 
53  P  IMPROPER  CUE  CCOE.  TRY  AGAIN. 

-ECF  - 

TAPE  2 

34  NUMBER  C'JEBCARD  ROWS 
13  NUMBER  CUEBCAPD  COLUMNS 
23  NUMBER  CF  CHARACTERS  PER  CAPTION 


A  31 

MESSAGES 

CALL 

MESFLIP 

A  32 

SC/ON ,CFF 

CALL 

CUEFLIP 

A  33 

ORAWCUE 

CALL 

DRAWCJE 

A  34 

SETC'JE 

CALL 

SETCUE 

A  35 

SET DP AW TNG 

CALL 

SETTD 

A  36 

SETSCF.EEN 

CALL 

SETSCF 

A  37 

BCROER 

CALL 

BCRDEP 

1  •v,; 

DRAWAXIS 

CALL 

AXIS 

A  39 

clear 

CALL 

MESSAGE  (3,  NO  JM) 

AID 

HARXCFY 

CALL 

HXOPY 

B  31 

NE’WLIME 

CALL 

N  cJ/LI  ME 

B32 

SPLINE 

CALL 

S  PL I ME ( NTHP  LK ) , RET  JR  MS ( 6  3 ) 
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B3"5 

LTNEAR 

CALL 

LINEAR (NTHELK) , RETURNS (6 

E3n 

3 RAW ALL 

CALL 

VIEW ALL 

B35 

DRAW 

CALL 

VIEW 

E36 

X-5YM 

CALL 

SYMHET 

B38 

TITLE 

CALL 

CAPTION 

B39 

WRITETITLE 

CALL 

WTITLE 

C31 

SAVE 

CALL 

SAVE 

C32 

REVIVE 

CALL 

REVIVE 

C  33 

ERASE 

CALL 

ERASE3 

C  3-4 

STAGTAPE 

CALL 

STAGLN 

C  35 

3RAWSTAG 

CALL 

3RWSTAG 

C  36 

PCSITICNKEY 

CALL 

SETKEY 

C37 

3RAWKEY 

CALL 

KEY 

C  38 

ISCTAPE 

CALL 

ISO 

C  39 

3RAWISC 

CALL 

3RAWISC 

31  3 

STOP 

ST0P"REC'JESTE3  FROM  CJEBCAR3" 

-EOF 
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CZ DRAFT 

PROGRAM  Z9RAFT(INPJT=1  31  ,  OUTPUT,  TAPE3=INPTT,TAPE4=OUTPiJT, 

*  TAPE1=131 ,TAPE2=101 ,TAPE5=1  31 ,TAPE6=1 31, 

*  TA  PE7= 1 3 1 , TA  PE8= 1 31 , TAPE9= 1 0 1 , TAPE 1 0=1 0 1 , 

*  TAPE  1 1=1 31 ,  TAPE  12=191 ,  TAPE13=1 31 ,  TAPE14=1 31 , 

*  TAPE  15=1 31) 

COMMON 

*/BLK/ 

*  IHORZ(4), 

*  TVERT(4), 

*  I YSET, 

*  MAXCCL, 

*  MAXIX, 

*  MAXIY, 

*  MAXRCW, 

*  MAXSR, 

*  NF 
COMMON 

*/  ELKCUE/ 

*  IHEIGHT, 

*  ILENGTH , 

*  ISIOE, 

*  IUC3ELT, 

*  IXORIG, 

*  I'JGI , 

*  IVQ9ELT, 

*  IYORIG, 

*  IV01, 

*  LEGEN3( 15, 15,23), 

*  MCHARQ, 

*  PHIC, 

*  SIOEO 
COMMON 

*/ELKJ/ 

*  JCUE, 

*  JORAW, 

*  JMESS, 

*  JSCR, 

*  uSTAC, 

*  JTITLE 
COMMON 

•/ELKPTS/ 

*  ARRAY(533,2) , 

*  ASPLO  33,23), 

*  NCC3E(533), 

*  NPTC 

*  NSPLSC503), 

*  NSW ITCH, 
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*  NTHSPL , 

*  NVPTS, 

*  UNIT 
COMMON 

*/BLKSCAL/ 

*  LZNSCAL, 

*  NEXP, 

*  SCALAST, 

*  SCALES, 

*  SCALET, 

*  SCALSIZ 
CCMKCN 

*/BLKSD/ 

*  IXRANGE, 

*  IXSTART, 

*  1X1, 

*  IYRANGE , 

*  IYSTART, 

*  IY1, 

*  NUNIT(20), 

*  PH 13, 

*  RATI 03, 

*  XRANGE , 

*  XSTART, 

*  X3 

*  YRAHGE , 

*  YSTART, 

*  Y3 
COMMON 

*/ELKTD/ 

*  I:J3RW1, 

*  IU3RW2, 

*  I'J3, 

*  IV3RW1 , 

*  IV3RW2, 

*  IV  3 
3ATA 

*  (ARRAY=3333*3.3), 

*  (I'JORV  1=6*0), 

*  (I;JQ1  =  3) , 

*  (IVQ1=3) , 

*  (1X1 =-1), 

*  (IY1 =-1 ) , 

*  ( JCUE=-1 ) , 

*  (JDRAW=3), 

*  ( JMESS=1 ) , 

*  ( JSCR=3) , 

*  (JSTAG=3), 
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*  (LEGEND=4500*55B) , 

*  (NCCDE=1D04»0), 

*  (SCALAST=0.0) 

THIS  ROUTINE  INITIALIZES  VARIOUS  F_OT10  AND  Z DRAFT  ROUTINES 


VARIABLES  READ  FROM  TAPE1 

IBAUD  -  TRANSMISSION  RATE  (BAUD) , CHARACTERS  PER  SECOND 

MAXSR  ....  NUMBER  OF  ADDRESSABLE  POINTS  ON  THE  TEKTRONIX  TERMINAL 
ITERM  ....  TERMINAL  IDENTIFICATION  NUMBER 

1  -  4006,4010,4012/13 

2  -  4014/15 


3  _  4014/15  ENHANCED  GRAPHICS  MODULE 
ISIZE  _  CHARACTER  SIZE,  4014/15  ONLY 


CHARS/LINE 

NUM  l: 

1  - 

74 

35 

2  - 

81 

38 

3  - 

121 

58 

4  - 

133 

64 

LOCDS  _  SWITCH  FOR  LOCAL  DISPLAY  OF  TAELET  POINT  ON  TERMINAL 

0  -  NO 
1  -  YES 

I  PEN .  TABLET  MODE 

0  -  PEN  MODE 
1  -  PRESENCE  MODE 


REWIND  1 
READ( 1,1000) 

READ(1 ,1000)  I BAUD, MAXSR, ITERM , ISIZE, LOCDS, IPEN 
IF ( EOF ( 1 ) . NE . 0 )  STOP" INITIALIZING  VARIABLES  FOR  PLOTIO  MOT  FOUND  0 
*N  TAPE1." 

C 

C  INITT  (PLOTIO  ROUTINE)  INITIALIZES  TERMINAL 
IBAUD=IBAUD/10 
CALL  INITT(IBAUD) 

C 

C  TERM  (PLOTIO  ROUTINE)  SPECIFIES  TERMINAL  TYPE 
CALL  TERM (ITERM, MAXSR) 

IF( ITERM. EQ. 1 )  GO  TO  200 
C 

C  THE  FOLLOWING  STORES  ALPHA/NUMERIC  CHARACTER  DIMENSIONS 
00  100  ISIZE=1,4 
CALL  CHRSIZ( ISIZE) 

CALL  CSIZE(IH, IV) 

IHORZ(ISIZE)=IH 
IVEFT(ISIZE)=IV 
100  CONTINUE 
C 

C  TABINT  (PLOTIO  ROUTINE)  INITIALIZES  GRAPHICS  .TABLET 
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I C  COP  D=M  A  XS  R/  '4  3  3  3 

CALL  TABTNT(ICCORD,LOCDS,  IPEN) 

C 

C  INITIALIZES  MESSAGE  ROUTINE 
233  CALL  MESSAGE ( MAXSR , NDUM ) 

C 

C  THE  FOLLOWING  READS  CUE  BLOCK  SPECIFICATIONS  FROM  TAPE2 
C  AND  INITIALIZES  CUE  BLOCK  VARIABLES. 

REWIND  2 
READ(2,2333) 

C 

C  MESSAGE  -  "SCREEN  C'JE  BOARD  DATA  NOT  FOUND  ON  TAPE2" 

IF ( EOF ( 2 ) . ME . 3 )  CALL  MESSAGE (9, NDUM) 

READ(2,2133)  MAXROW.MAXCOL, NCHARQ 
IF(EOF(2) .NE.Q)  CALL  MESSAGE (9, NDUM) 

C 

C  MESSAGE  -  "NUMBER  OF  TABLET  CUE  BOARD  ROWS  EXCEEDS  MATRIX  DIMENSION" 
IF(MAXRCW.GT.15)  CALL  MESSAGE ( 1 3 , NDUM) 

C 

C  MESSAGE  -  "NUMBER  OF  TABLET  CUE  BOARD  COLUMNS  EXCEEDS  MATRIX  DIMENSION" 

IF ( MAXCCL . GT . 1 5 )  CALL  MESSAGE (14, NDJM) 

C 

C  MESSAGE  -  "NUMBER  OF  SPECIFIED  C’JE  BOARD  A/M  CHARACTERS  EXCEEDS  MATRIX  DIMEN 
IF ( NCHARQ. GT. 2D)  CALL  MESSAGE (15, NDUM) 

NF=MAXSR/1324 
MAXIX=MAXSR  -  1 
MAXTY=NF*7£3 
363  MAXBLK=MAXRCV* MAXCCL 
DO  433  MTH5LK = 1 , M AXELK 

RE A D(2 , 22 3 3 )  NRCW , NCCL , ( LEGEND ( NRCW , NC CL , N ) , M= 1 , NCHARQ ) 

IF ( EOF ( 2 ) . NE . 3 )  GO  TO  423 
433  CONTINUE 
423  IXORIG=f.T*513 
IYORIG=NF*393 
ISIDE=NF*( 1 333/MAXCCL) 

IDUMHY=MF« (76  3/  MAXRCW) 

IF(  ISIDE .  GT .  DUMMY )  ISIDE=IDUMMY 
ILENGTH=MAXCCL*ISTDE 
IHEIGHT =MA  XRCW*ISIDE 

MESSAGE  -  "X  YOU  WISH  A  COPY  OF  THE  GRAPHICS  TABLET  CUEBCARD  ? 

TYPE  Y(YES)  OR  N(NC)" 

CALL  MESSAGE (1, NANS) 

IF(NANS.EC. 1HY)  CALL  DRAWCUE 

MESSAGE  -  "X  YOU  WISH  TO  POSITION  THE  GRAPHIC  TABLET  C’JE  BOARD  ? 

TYPE  Y(YES)  OR  N(NO)" 

483  CALL  MESSAGE (13, MANS) 
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IF (MANS. EC.  1HN )  GO  TO  503 
CALL  SETCUE 
GO  TO  630 
533  JCUEsI 

MESSAGE  -  "INP3T  CUE  CODES  FROM  TERMINAL  KEYEOARD. 
CALL  MESSAGE  (3,  ND:JM) 

633  CALL  CUEBRD 
C 

C  FORMATS 
1333  FCRMAT(I5) 

2333  FORMAT (F5. 2) 

2133  FORMATCI5) 

2233  FCRMAT(R 1 , 12, 2X, 23R 1 ) 

END 
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SUBROUTINE  CAPTION 
COMMON 
•/ELK/ 

*  IHORZ(H), 

*  IVEPT(4), 

*  IYSET, 

*  MAXCCL , 

*  MAXIX, 

*  KAXIY , 

*  MAXFOW , 

*  MAXSR, 

*  NF 
COMMON 

•/ELKCAPT/ 

*  MAXLINE, 

*  MCAPT(85,13> 
COMMON 

•/ELKJ/ 

*  JCiJE, 

*  JORAW, 

*  JMESS, 

*  JSCR, 

*  JSTAG, 

*  JTITLE 
10 0  ISIZE=3 

NLINE=0 

IY=NF»?75 


THE  FOLLOWING  STATEMENT  CLEARS  THE  SCREEN,  NO  MESSAGE  IS  WRITTEN. 

CALL  MESSAGE ( 0 , NOUN) 

MESSAGE  -  "INPUT  TITLE  LINES.  CHARACTER  SIZE  IS  PRESET  TO  3." 

CALL  MESSAGE (52, NOUM) 

120  NLINE=NLINE  -►  1 

MESSAGE  -  "INPUT  CHARACTER  SIZE."  EOF  OEFA’JLT  IS  PREVIOUS  CHARACTER  SIZE." 
aLL  MESSAGE (47, NOUM) 

CALL  ANMODE 
REAO(3, 1100)  ISIZEA 
IF(EOF(3).EC.O)  ISIZE=ISIZEA 

C  THE  FOLLOWING  STATEMENT  SKIPS  MESSAGE  LINES,  NO  MESSAGE  IS  WRITTEN. 

CALL  MESSAGE (-1 , NOUM) 

C 

C  MESSAGE  -  "TYPE  TITLE  LINE." 

CALL  MESSAGE (48, NOUM) 

140  CALL  ANMCOE 
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READ(3 , 1 330)  (NCAFTCJ , NLINE) , J=5 , 84 ) 

IF(EOF(3).NE.3)  GC  TO  333 
C 

C  THE  FOLLOWING  STATEMENT  SKIPS  MESSAGE  LINES,  NO  MESSAGE  IS  WRITTEN. 
CALL  MESSAGE  (-1  ,ND:JM) 

NCHARS=83 
X  233  Ja1,83 

IF(NCAFT(NCHARS+4,NLINE) .NE.55E)  GO  TO  223 
NCHARSrNCHARS  -  1 
233  COf/TTf’JE 
223  J2=?!CHARS  +  4 
CALL  ANMCOE 

WRITE(4, 1333)  (NCAPT(J, NLINE) ,J=5, J2) 

C 

C  THE  FOLLOWING  STATEMENT  SKIPS  MESSAGE  LINES,  NO  MESSAGE  IS  WRITTEN. 
CALL  MESSAGE (-1.NDJM) 


MESSAGE  -  "IS  THIS  LIME  CORRECT?  TYPE  Y(YES)  OR  N(NO)" 

CALL  MESSAGE (49, NANS) 

IF(NANS.EQ.IHN)  GO  TO  263 

NCAPTO , NLINE )=(MAXIX  -  NCHARS*IHCRZ(ISIZE) )/2 
IYalY  -  IVERT(ISIZE) 

IF ( NLINE. EO. 1)  GO  TO  243 
ISIZE1=MCAPT(3, NLINE-1 ) 

IYalY  -  3. 125*(IVERT(ISIZE)  +  IVERT(ISIZED) 

243  NCAPT (2 , NLINE )=IY 
NCAPT (3 , NLINE)=ISIZE 
NCAPT (4, NLINE )=NCHARS 
GO  TO  123 

MESSAGE  -  "CHANGE  CHARACTER  SIZE,  IF  DESIRED." 

263  CALL  MESSAGE (53, NDJM) 

CALL  AMMODE 
READ(3, 1133)  ISIZEA 
IF(EOF(3).£C.3)  ISIZE=ISIZEA 

THE  FCLLOWING  STATEMENT  SKIPS  MESSAGE  LINES,  NO  MESSAGE  IS  WRITTEN. 
CALL  MESSAGE (-1 , NDJM) 

MESSAGE  -  "RETYPE  LAST  LINE" 

CALL  MESSAGE (5 I.NDUM) 

GO  TO  143 


THE  FOLLOWING  STATEMENT  CLEARS  THE  SCREEN,  NO  MESSAGE  TS  WRITTEN. 
333  CALL  MESS AGE (3, NDJM) 

IYSETrlY  -  1 *IVERT(ISIZE) 

MAXLINE =NLINE 
ENTRY  WTITLE 
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IF(MAXLINE.EC.O)  GO  TO  100 
IF( JDRAW.EC. 0  .OR.  MAXIY. EQ. IYSET)  GO  TO  320 
MAXIY=IYSET 
CALL  SETSCR 
320  NLINE=0 
340  NLINE=NLINE  +  1 

ISIZE=NCAPT (3 , NLINE) 

NCHARS=NCA  PT (4 ,  KLINE ) 

CALL  CHRSIZ(ISIZE) 

IX=NCA PT (1, NLINE) 

IY  sNCAFT (2 , NLINE ) 

CALL  MCVABS(IX, IY) 

J2=NCHARS  +  4 
CALL  ANMODE 

WRITE (4 ,1000)  ( MCA PT (J, NLINE) ,J=5,  J2) 
IF(NLIME.LT. MAXLINE)  GO  TO  340 
RETURN 
C 

C  FORMATS 
1000  FORMAT (8 OR  1) 

1100  FORMAT (1 1 ) 

END 
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CC'JEBRO 

SfJBKOfJTIHE  CUE8RD 
43  NTHBLK=3 

CALL  INPUT  (X ,  Y ,  NTHBLK ) 

63  IF ( NTHBLK. CT. 3)  GO  TO  83 
CALL  MESSAGE (6, NDUM) 

GO  TO  43 


83  MAXBLK=  43 

IF ( NTHBLK. GT.MAXBLK)  GO  TO  9999 
GO  TO  ( 

*133  135  113,115,123,125,133,135,143,145,153,155,163,165,173,175, 
*9999,183, 185,9999,193, 195,233,235,213,215,223,225,233,9999,9999, 
»9999 ( 9999 1 9999 , 9999 , 9999 , 9999 , 9999 , 9999 , 235 
*)  NTHBLK 
103  CALL  MESFLIP 
GO  TO  43 


1 35  CALL  CUEFLIP 
GO  TO  43 
1 1 3  CALL  DRAWC'JE 
GO  TO  43 
115  CALL  SETC'JE 
GO  TO  43 
123  CALL  SETTD 
GO  TO  43 
125  CALL  SETSCR 
GO  TO  43 
133  CALL  BCRDER 
GO  TO  43 


1’5  CALL  AXIS 
GO  TO  43 

143  CALL  MESSAGE (3, NDUM) 

GO  TO  40 
145  CALL  HXOPY 
GO  TO  43 
153  CALL  NEWLINE 
GO  TO  43 

155  CALL  SPLINE(NTHBLK) ,  RET  'JR  NS  C  6  0 ) 
GO  TO  40 

163  CALL  LINEAR (NTHBLK ),RETURNS(6 3) 
GO  TO  43 
165  CALL  VIEWALL 
GO  TO  43 
173  CALL  VIEW 
GO  TO  43 


175  CALL  SYMMET 
GO  TO  43 
183  CALL  CAPTION 
GO  TO  43 
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185  CALL  W TITLE 
GO  TC  <40 
190  CALL  SAVE 
GO  TO  <40 
195  CALL  REVIVE 
GO  TO  40 
200  CALL  ERASED 
GO  TC  40 
205  CALL  STAGLN 
GO  TO  40 

210  CALL  DRWSTAG 
GO  TC  40 
215  CALL  SET KEY 
GO  TO  40 
220  CALL  KEY 
GO  TO  40 
225  CALL  ISO 
GO  TO  40 

230  CALL  DRAWISO 
GO  TC  40 

235  STOP" REQUESTED  FROM  C’JE  BOARD" 

GO  TO  40 

MESSAGE  -  ELANK  COE  REQUESTED.  TRY  AGAIN. 

9999  CALL  MESSAGE  (1 7,  ND'JM) 

GO  TO  40 
END 
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S'JERC  JTINE  DRAVISO 
COMMON 
*/  ELKISC/ 

*  ANGLE (2D) , 

*  ARCMAX(2D), 

*  MTITLE(S) , 

*  KAXLINE, 

*  RADIOS (2D, 2D) , 

*  VAR (2D), 

*  XISC(6D,2D), 

*  YISC((  D,2D) 

COMMON 

*/ ELKPTS/ 

*  ARPAY(5DD,2>, 

*  AS PL(1 3D, 2D) , 

*  NCCDE03DD)  , 

*  NPTS, 

*  MSPLS (5  DO ) , 

*  NSVITCH, 

*  MTHSPL, 

*  MVPTS, 

*  JETT 

X  ; DD  MTHLIME=1 , MAXLINE 
ARCL£N=D. D 

2DD  X=SPLNCin,XISO(1,  MTHLINE)  ,ARCLe.N) 
v -<? p  nc  1  ( 1 ,  YTSC(  1 ,  NTHLJNE ) ,  APCL ly ) 
IF( ARCLZN.EC. D. D)  CALL  MCVEAU.Y' 
CALL  DFAYJA(X,Y) 

ARCLENsARCLEV  +  JNIT  _  _  „ 

IF ( ARCLEM.LT. APCIiAX(MTHLlNE) )  Go 
3DD  CONTINUE 
PET  JR N 
END 


2DD 
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SUBPC'JTINE  3RAWCUE 
COMMON 
*/ ELK/ 

*  IHCRZ(u), 

*  I  VERT (4 ) , 

*  IYSET, 

*  MAXCCL, 

*  MAXIX, 

»  maxiy, 

*  N'AXHCW, 

*  KAXSR , 

*  MF 


C 

c 

c 

c 

c 

c 


COMMON 

VELKCUE/ 

*  IHEIGHT, 

*  ILZNCTH, 

*  ISI3E, 

*  IUC3ELT, 

*  IXORIG, 

*  T  I  Cl 

*  IVC3ELT, 

*  IYORIG, 

*  IVOI, 

*  LEGEN305, 15,23) , 

*  NCHAPQ, 

*  PHIC, 

*  SIDEC 
DIMENSION 

*  NWCRDS(23) 


MESSAGE  -  "IS  HARXCPIER  CN  AND  SUFFICIENTLY  V.AHM  ?  TYPE  Y (YES)  CF  N(NC) 
CALL  MESS AGE (2, NANS) 


MESSAGE  -  "TURN  CM  HARXCPIER,  WHEN  WARM  TYPE  Y." 

IF (MANS. EC. 1HM)  CALL  MESSAGE (3 , NOUM) 

THE  FOLLOWING  STATEMENT  CLEARS  THE  SCREEN,  NO  MESSAGE 
23  3  CALL  MESSAGED,  NDUM) 

CALL  MCVA BS (I XCRIG, IYORIG) 

CALL  MCVREL(-ILEMGTH/2 , -IHEIGHT/ 2 ) 

CALL  DRWREL( 3, IHEIGHT) 

30  ’33  MCCL=1 .MAXCOL 
CALL  MCVREL(ISI3E, -IHEIGHT) 

CALL  DRWPELC 3, IHEIGHT) 

333  CONTINUE 

CALL  DRWRELC-ILENOTH , 3) 

30  ’63  NRCWsI .MAXROW 


IS  WPTTTEN. 
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CALL  y CVF E L ( ILc NOTH ,  -IS  I  Or. ) 

CALL  OPVRELC-ILENC-TH, 3) 

36  3  CCNTINJE 

CALL  MCVRELdLENGTH,  IHEIGHT) 

DC  603  MRCW=1 ,MAXRCW 

CALL  KCVRELC-ILENGTH , -ISIOZ/2) 

GO  533  NCCL=1 ,MAXCCL 
CALL  SEELCCdX,  IY) 

NCHAPsO 

do  433  m=i,ncharc 

TF( LEGEND (NRCW,. VCCL, N)  .rC. 55B)  GC  TO  a2) 

NWCRDS(N  )=LEGENO(MRCW,  NCCL,  N) 

MCHARsN 
433  CCNTIN'JE 

M2:  IF (NCHAR.LT. 1 )  GO  TO  «8D 
DC  4*0  1=1,4 
ISIZEsI 

IXCAPT=NCHAR*IHCRZ(TSIZE) 

IF (IXCAPT.LT. IS  IDE)  GO  TC  463 
443  CCNTINJE 

C  MESSAGE  -  "CAPTION  TO  LONG  FOR  COE  ELCCK" 

CALL  MESSAGE  06,  NO:JM) 

463  CALL  MCVREL ( ( I S IOE-I XCA PT)/2,-IVERT(ISIZE)/2) 

CALL  CHRSIZ(ISIZE) 

CALL  ANN ODE 

WRITE (4, 2000)  (NWCROS(N)  ,N=1 ,  NCHAR) 

CALL  MCVABSdX,  IY) 

CALL  MCVREL ( ( ISTDE-3*IF0PZ( 3 ) )  /2 , (  (ISIOE/2 )-TVERT d ) ) ) 
CALL  CHPSIZ(?) 

CALL  AM-1  COE 

V/RITEC4 ,2100)  N ROW, NCCL 
CALL  MCVABSdX,  IY) 

4c 0  CALL  MCVRELCISIOE, 0) 

5  00  CCNTINJE 

CALL  MCVREL ( 0 , -IS IDE/ 2 ) 

6  30  CCNTINJE 

CALL  HXCPY 

c  MESSAGE  -  "IS  CCPY  SATISFACTCFY  ?  TYPE  Y(YES)  OR  N(NO)" 
CALL  MESSAGE ( « , NANS ) 

IF( MAN'S. EC.  1HN)  GO  TO  200 

RET  JRN' 

C  FORMAT? 

2000  FORM AT (2 OR  1 ) 

2100  FORMAT(R 1 , 12.2) 
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C ERASE 

SUBROUTINE  ERASE 
CCMHCM 
*/ ELKPTS/ 

*  ARRAYC53 3,2), 

*  ASPL(1 33,23), 

*  NCCDE(533) , 

*  MPTS, 

*  NSPLSC533), 

*  NSW ITCH, 

*  NTHSPL , 

*  NVPTS, 

*  UNIT 
ENTRY  ERASED 


MESSAGE  -  "ERASE  DRAWING  ?  TYPE  Y(YES)  OR  N(NC)" 
CALL  MESSAGE (36, NANS) 

IF  (NANS. EC. 1HN)  RETURN 
DO  133  N=1,R333 
ARRAY(N)=3. 3 
133  CONTINUE 

X  233  N=1 , 1 334 
NCCDE(N)=D 
233  CONTINUE 
RETURN 
END 
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SUBROUTINE  FIT(MFIRST) 

COMMON 
VELKPTS/ 

*  ARRAY(533, 2) , 

*  ASPLC133, 23), 

*  NCCDE(533) , 

*  NPTS, 

*  MSPLS(533 ) , 

*  NSWITCH, 

*  MTHSPL , 

*  NVPTS, 

*  JNIT 
NIsNFIRST 
N2=MPTS 

X  133  N=N1,N2 
XSPLsARRAY(N, 1) 

YSPL*ARRAY(N,2) 

CALL  ;JPOATE(ASPL(1 ,  MTHSPL')  ,XSPL,YSPL) 
133  CONTINUE 
RETURN 
END 
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CCMMCN 
*/EL K/ 

*  IH0RZ(4), 

*  IVEBK4), 

*  IYSET, 

*  yAXCC L, 

*  KAXIX, 

*  maxiy, 

*  MAXRCV, 

*  MAXSR , 

*  HF 
CCMMCN 

*/ELKC:JE/ 

*  IHEIGHT, 

*  ILENGTH , 

*  ISIOE, 

*  IJCDELT, 

*  IXCP.IG, 

*  IUQ1 , 

*  IVQDELT, 

*  IYCRIG, 

*  IVQ1, 

*  LEC-EN0C15, 15,23) , 

*  NCHARQ, 

*  PHIQ, 

*  SIOEG 
CCMMCN 

*/ELKJ / 

*  JC'JE, 

*  JDRAW, 

*  JMESS, 

*  JSCR, 

*  JSTAC-, 

*  JTITLE 
CCMMCN 

*/ELKSCAL/ 

*  LEMSCAL, 

*  MEXP, 

*  SCALAST, 

*  SCALES, 

*  SCALET, 

*  SCALE IZ 
CCMMCN 

*/ELKSD/ 

*  IXRANGE , 

*  IXSTART, 
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*  1X1, 

*  IYRAMGE, 

*  IYSTART, 

*  IY1 , 

*  N  JNIK20) , 

*  PHIO, 

*  RATIOO, 

*  XRAKGZ, 

*  XSTART, 

*  XO, 

*  YRANGE, 

*  YSTART, 

*  YO 
CCMMCN 

*/ELKTO/ 

*  IJORW1, 

*  IJDRW2, 

*  100, 

*  IVORW1, 

*  IV0RW2, 

*  rvo 

DIMENSION 

*  ICHARSO) 

IF(JCOE.EQ.  1 )  GO  TO  <00 

100  CALL  BELL 

CALL  CMEPNKI  J,  IV) 

IF( JORAV. EC.  0  .CR.  NTHP.LK.  EC.  0)  C-C  TC  200 
IF (  rJ.LT.PJORVI  .OR.  I0.GT.I00RW2 

*  .CP. 

*  IV. LT. IVOR VI  .CR.  IV.GT. IVDRW2  )  GO  TO  200 
mZLTzTJ  -  10  0 

IVOELT=IV  -  I  VO 

X  =SCALET*(  I  JDELT*CCS  (PIIIO )  +  IVDELT*SIN(PHTO)) 

Y  =SC ALZT* ( I VOELT* CCS  (PHIO)  -  I0DZLT*SIN(PHI0)  1 

NTHBLK=-1 

RETORN 

200  IF(IOQ1.GT.O  .AMO.  IVQ1.CT.0)  GC  TO  243 
C 

C  MESSAGE  -  "GRAPHIC  TABLET  COE  BCARO  HAS  NOT  BEEN  PCFITICNEO." 

CALL  MESSAGE (37, LOOM) 

C 

C  MESSAGE  -  "00  YCO  WISH  A  COPY  OF  THE  GRAPHICS  TABLET  COFBCARO  ? 
C  TYPE  Y(YES)  OR  M(NC)" 

CALL  MESSAGE ( 1 , NANS) 

IFCIAMS.EC. 1HY)  CALL  ORAWCOE 
C 

C  MESSAGE  -  "X  YOO  WISH  TC  POSITION  THE  GRAPHIC  TAPLET  C'JE  BCARO 
CALL  MESSAGE (10, MANS) 
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IF(i!Af!S.  EC.  1HY)  TO  223 
JC:JE=1 
C 

C  MESSAGE  -  "INPUT  CUE  CCDES  FRO"  TERMINAL  KEYBOARD" 

CALL  MESSAGE (8 , MD'JM) 

GC  TC  433 
223  CALL  SETC'JE 
MTHBLK=-1 
RETURN 

2“  3  IUGELT=I'J  -  IUC1 
IVDELT=IV  -  IVQ1 

JPRIME=I'JDELT*CCS(?HIQ)  +  IVDELT*SIN(PHIG) 
VPRIME=IVDELT*CCS(PHIQ)  -  I JDELT*SIN (PHIC) 

IF (  JPRIME.LE.  3.  3  .CR.  UPRIME.GE. IJQDELT 

*  -CR. 

*  VPRIME.LE. 3. 3  -CR.  VPPIME.GE. IVQDELT  )  GC  TC  233 
MTHC  CL = ( UPR IM  E/’  SIDE  C )  +  1 
NTHRCW=VPRIME/SIDEO 

NTHRCVsMAXRCK  -  NTHRCW 
GO  TC  733 
C 

C  MESSAGE  -  ”  POINTER  IMPROPERLY  POSITIONED,  TRY  AGAIN." 
233  CALL  MESSAGE (6, NDUM) 

GC  TC  133 

^33  IF( JDRAW.EC. 3  .CR.  NTH3LK.EC. 3)  GO  TO  533 
423  CALL  3 ELL 

CALL  SC'JRSPCICHAR ,  IX,  IY) 

IFdCHAR.EC.81 )  GC  TO  533 
C  "Q" 

IF(IX.LT. IXSTART  .CR. 

*  IX. GT. (IXSTART  +  IXRANCE)  .CR. 

*  IY.LT. IYSTART  .CR. 

*  I Y.GT. (IYSTART  +  IYRANGE)  )  GO  TC  423 
IXDELT=IX  -  IXSTART 

IYDELT=IY  -  IYSTART 
X=SCALE£*IXOELT  +  XSTART 
Y=SCALES*IYDELT  +  YSTART 
NTH3LK=-1 
RET'JPM 

53  3  NTHRCW=3 
NTHCCL=3 
CALL  HCME 
CALL  BAKSP 
CALL  CHRSIZ(3) 

CALL  CZAXIS (2 ) 

CALL  BELL 

CALL  ANMCDE 

READ(3 , 2333 )  ICHARS 
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CALL  CZAXTS(O) 

NTHRa»'=ICIlARS(1 ) 

IFCNTHRCW.LT. 1  .OR.  NTHRCW . CTT . H AXRC'.v )  GC  TO  03 
IF(ICHARS(2).CE.?3B  .AND.  ICHARS(2)  .LE.UO) 

*  NTHCOL=ICHARS  (2 )  -  "?3B 

IF  ( I  CHARS  ( p ) . CE . 33E  .MO.  ICHAR5(3 ) .LE. 44B) 

*  NTHCCLsI  J*NTHCCL  +  (ICHARS(3)  -  33B) 
IF(NTHCCL.GE. 1  .OR.  NTHCCL.LZ.MAXCCL)  GO  TO  733 

C 

C  MESS ACE  -  "IMPROPER  C'JE  C COE.  TRY  AGAIN." 

633  CALL  MESSAGE 159, fOJM 3 
GO  TO  c33 

733  NTHFLK=(NTHRCW  -  1 )*MAXCC!L  +  NTHCOL 
RET'JRN 

FORMATS 

2333  FORMATHRD 
EN3 
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ci?o 

subroutine  iso 

COTCH 

VFLKISC/ 

«  ANGLE (23), 

*  AFCMAX(23) , 

*  NTITLE(A), 

*  MAXLINE, 

*  RADIUS (2 3, 23), 

*  VAR (2 3) , 

*  XT?C(63,23), 

YISC  (63,23) 

DIMENSION 

*  X (23) , 

*  Y(23) 

PI =3. 1^159265359 
RD=?I/lP3o3 

c 

C  MESSAGE  -  "INP:JT  TAPE  NUMBER  CONTAINING  ISO  DATA." 

CALL  MESSAGE (53  >  MDUM) 

READ(3 ,*)  NTAPE 
IFCNTAPE. EO. 3)  RETURN 
REWIND  NTAPE 
READ(NTAPE,  1333)  ‘.TITLE 
IF (EOF (NTAPE) .NE. 3)  GO  TO  993 
WRITER , 1333)  'TITLE 

THE  FOLLOWING  STATEMENT  SKIPS  MESSAGE  LIMES,  NO  MESSAGE  IS  WRITTEt 
CALL  MESSAGE (-2,  ID JM) 

MESSAGE  -  "FEAT  THIS  DATA  ?  TYPE  Y(YES)  OR  N(NO)" 

CALL  MESSAGE '5^, MANS) 

IF('JAMS.EC.  1HN)  RETURN 
NTHLINE=3 
DC  1«)  '!  =  1 ,2) 

DC  123  M=1 ,63 
XISC(Y,M)=3.  3 
YISC(M,N)=3.  3 
123  CONTINUE 
1“ 3  CONTINUE 

X  1?3  M  =  1 , 23 
3C  16  3  N  =  1 ,23 
RADIUS (M, N)=- 1 .  3 
T3  CONTINUE 
IF  3  CCNTINJE 

REAOTTAPE,  1  36  3)  XCEN 
IF( EOF (NTAPE) .IE. 3)  GC  Tn  993 
233  PEA0(NTAPE,136  3)  YCEt! 
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IF ( EOF ( MTA  PE ) . HE . 0 )  GC  TO  990 

READCNTAPE, 106 0)  XPT 

IF ( EOF ( NTA PE ) . ME . 0 )  GC  TO  990 

READCNTAPE, 1060)  YPT 

IF(EOF(NTAPE).NE.O)  GO  TO  990 

XCEM =-XCEN 

YCEM=-YCEN 

XPT=-XPT 

YPT=-YPT 

AP.GX=XPT  -  XCEM 

ARGY=YPT  -  YCEM 

EPSLN=ATAN2(ARGY, ARGX) 

REAO(MTAPE, 1040)  MVAR 
IFCEOF(NTAPE).NE.O)  GO  TO  990 
IF(MVAR.LE.20)  GO  TO  220 

MESSAGE  -  "NUMBER  OF  VARIABLES  EXCEEDS  MAXIMUM  LIMIT  OF  20.” 
CALL  MESSAGE (56 , NDUM) 

RETURN 

220  READCNTAPE, 1080)  (VARCN) ,N=1 ,NVAR) 

IF( EOF ( NTA  PE ) . ME . 0 )  GO  TO  990 
READCNTAPE, 1040)  NANG 
IF(ECFCMTAPE) .NE.O)  GO  TO  990 
IFCNANG.LE-.20)  GO  TO  240 

MESSAGE  -  "NUMBER  OF  ANGLES  EXCEEDS  MAXIMUM  LIMIT  OF  20.” 
CALL  MESSAGE  (57,  ND'JM) 

RETURN 

240  READCNTAPE,  108 0)  ( ANGLE (N ) ,N=1 , NANG) 

IF(ECF(UTAPE).NE.  0)  GC  TO  993 
DC  280  N=1 , NANG 
A  NGLE ( N ) = R  D  * ANGLE ( M ) 

280  CONTINUE 

READ(NTAPE, 1000) 

IFCEOF(MTAPE) .NE. 3)  GO  TO  990 

300  READCNTAPE, 1120)  NTHANG, MTHVAR , RAD 
IF ( ECF ( MTA  PE ) . NE . 0 )  GO  TO  9°0 
IFC NTHANG. EC. 99  .CR.  MTHVAR . EQ. 99 )  GO  TO  320 
RADIUS (NTHANG, MTHVAR )=RAD 
GO  TO  300 

320  DC  500  MTHVAR =1 , MVAR 
ARCLEM=0. 0 
MTRTP=0 
MTH=0 

DO  «4  3  MTHANG=1 ,  NANG 
IFCMTRIP. EO. 1 )  GO  TO  760 
IFCRADIUSCNTHANG, MTHVAR). LT. 0.0)  GO  TO  443 
NTPIPrl 
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NTHLINE=NTHLINE+1 
IF(MTHLINE.LE.20)  GO  TO  382 


MESSAGE  -  "NUMBER  OF  ISO  CONTOUR  LIMES  EXCEEDS  MAXIMUM  LIMIT  OF  20." 
CALL  MESSAGE (58, NDUM) 

RETURN 

360  IF(RADIUS(NTHAMG, MTHVAR ) .GT. 0. 0)  GO  TO  ’80 
ARCMAX (NTHLINE ) =ARCLEN 
ARCLEMrO. 0 
NTRIP=0 
NTH=0 
GO  TO  44  0 
380  NTH=MTH+1 

R=RAOI:JS(NTHANG,  NTH  VAR ) 

XP  R IM =R  *  CCS ( ANGLE ( NTH A  MG ) ) 

YPR IM  =R  *S IN ( ANGLE ( NTHA  NG ) ) 

X(NTHANG)=XPRIM*CCS(EPSLN)  -  YPRIM*SIN(EPSLN)  +  XCEM 
Y (NTHANG)=XPRTM*SIN (EPSLN )  +  YP RIM* CCS (EPSLN)  +  YCEM 
IF(NTH.EQ.I)  GO  TO  420 
ARGX=X(NTHAMC)  -  X(NTHANG-I) 

ARGY=Y (NTHANG)  -  Y(NTHAMG-1 ) 

SEGLEN=SQRT ( ARGX**2  +  ARGY**2) 

ARC  FNzARCIFN  +  SFGT  FN 

420  CALL  UPDATE(XISO(1, NTHLINE), ARCLEN, X(NTHANG) ) 

CALL  UPDATE(YISO(1 , NTHLINE) , ARCLEN, Y(NTHANG)) 

440  CONTINUE 

IF (RADIUS (NANG, MTHVAR). LT. 0.0)  GO  TO  500 
N2=NANG 

DO  460  NTHA NG= 1,3 
ARGXsX (NTHANG)  -  X(N2) 

ARGY=Y (NTHANG)  -  Y(N2) 

SEGLEN=SQRT(ARGX**2  +  ARGY**2 ) 

ARCLEN=ARCLEM  +  SEGLEN 

CALL  JPDATE(XISO(1 , NTHLINE) , ARCLEN, X (NTHANG ) ) 

CALL  UPDATE (YTSOCl, NTHLINE) , ARCLEN, Y(NTHANG) ) 

M2=MTHANG 
460  CONTINUE 

ARCMAX (MTHLINE)= ARCLEN 
500  CONTINUE 

MAXLINErNTHLINE 

READ(MTAPE, 1060)  XCEN 

IF( EOF ( fJTA PE )  .EC.  0)  GO  TO  200 

RET'JRN 


C 


MESSAGE  -  EOF  ENCOUNTERED  READING  ISO  DATA  TAPE." 
990  CALL  MESSAGE (55, NDUM) 

RETURN 
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C  FORMATS 
1333  FCRMAT(8A13) 

134  3  FORMAK23X,  12) 

1363  F0RMATC23X,6G12.5) 

1383  FORMAT (6G 12. F) 

1123  F0RMAKI2, 8X,  12,  8X.G12. 5) 
END 
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:nes 

S:JBRC'JTINE  LINES (NTHBLK) , RETURNS (NS6 3) 
CCMMCN 
*/ ELK J / 

*  jcue, 

*  JO RAW, 

*  JMESS, 

*  JSCR , 

*  JSTAG, 

*  JTITLE 
COMMON 

*/ PLKPTS/ 

*  A.RRAY(533,2), 

*  ASPL( 133, 23) , 

*  NCCDE(533), 

*  NPTS, 

*  NSPLS(533) , 

*  NSW ITCH, 

*  NTHSPL, 

*  NVPTS, 

*  JMIT 
ENTRY  NEWLINE 

6 J  IF( JDRAW.NE. 0)  GC  TO  £3 


MESSAGE  -  "DRAWING  DIMENSIONS  HAVE  NOT  BEEN  SPECIFIED." 

CALL  MESSAGE (23 , NDJM) 

RETURN 

£3  IFCNSWITCH. EC. 1 )  GO  TO  133 
NPTS=NPTS  +  1 
NTHPT=NPTS 
NSWITCHsI 
NCCDE(NTHPT)= J 

MESSAGE  -  "NEW  LINE  SEGMENT  STARTED  SELECT  LINEAR  OR  SPLINE." 

103  CALL  MESSAGE (29, NOW) 

RETURN 

ENTRY  LINEAR 

IF(NPTS. EC. 3)  GO  TO  63 

NTHPT  =NPTS 

N PLUS =3 

GC  TO  233 

ENTRY  SPLINE 

IF(NPTS. EC. 3)  GO  TO  63 

NTHSPL =NTHSPL  +  1 

IF( NTHSPL. LE . 23 )  GC  TO  123 

MESSAGE  -  "MAXIM:JM  NUMEER  CF  SPLINES  HAS  BEEN  EXCEEDED." 

CALL  MESSAGE (31 , NDUM) 
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GO  TO  <4  3  3 
123  NFIRST=NPTS 

MS  PLS ( MFTRST )=M rH  S  PL 
j{  PL' JS  =4 

233  CALL  INPUT (X , Y, MTHBLK) 

TF(NTHBLK.NE.-I)  GO  TO  263 

IF( MCCDE (MTHPT) .EC. 3  .AMO.  NSWITCH. EC. 1 )  GO  TO  243 
IF(NPLUS.NE.4  .OR.  X. GT. ARRAYCMTHPT,  1 ) )  GC  TO  223 
C 

C  MESSAGE  -  "VALUES  OF  X  MUST  BE  INCREASING  FOR  A  SPLINE  FIT." 

CALL  MESSAGE  P5,  MOOM) 

GC  TO  3^3 

223  NTHPT=NTHPT  +  1 

IF(NTHPT.LE. 533)  GC  TO  233 
C 

C  MESSAGE  -  "MAXIM'JM  NUMBER  CF  POINTS  HAS  BEEN  EXCEEDED." 

CALL  MESSAGE (33,  ND:JM) 

GO  TO  433 

233  >JCCDE(NTHPT)=1  +  MPL  JS 
243  ARRAY(NTHFT, 1 )=X 
ARRAY(NTHPT, 2)=Y 
NSVITCHO 
GO  TC  233 

263  IF(MCCDE(NTHPT) .GT. 3)  GO  TO  333 

IF(NCCOE(MTHPT) .EC. 3)  MTHPT=NTHPT  -  1 
IF(NPL JS . EC. 4)  GC  TO  7C3 
GC  TO  433 

333  IF ( MCCDE (NTH PT ) . EC. 5  .AND.  ( MTHPT  -  MFIRSD  .LT.2)  GO  TC  *UD 
MC  CDE ( NTH  P  r ) = -NCCDE ( NTH  PT ) 

MPTSsMTHPT 

IF( MCCDE (MTHPT). EC. -5)  CALL  FIT(MFIRST) 

RETURN  NS 6 3 
C 

C  MESSAGE  -  "INSUFFICIENT  NUMBER  CF  POINTS  FOR  SPLINE  CURVE." 

343  CALL  MESSAGE (25 , NOUM) 

C 

C  MESSAGE  -  "DO  YOU  WISH  TO  AECRT  THIS  LINE  SEGMENT  ?  TYPE  Y(YES)  OR  N(NC)" 
36  3  CALL  MESSAGE  (26 ,  NAN'S ) 

IF (MANS. EC. 1HM)  GO  TO  «23 
323  NTHSPL=NTHSPL  -  1 
NTHPT=NFIRST 
C 

C  MESSAGE  -  "CURRENT  LIME  SEGMENT  A PORTED." 

433  CALL  MESSAGE (27 , MD JM) 

RETURN  NS 6 3 

C  MESSAGE  -  "INPUT  ADDITIONAL  POINT(S)." 

423  CALL  MESSAGE (2? , ND JM ) 
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GO  TC 
ENG 
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V*.  iLs-w1 

SUBROUTINE  MESSAGE (M  JM , NANS ) 

C  THIS  SUBROUTINE  WRITES  MESSAGES  TO  THE  SCREEN 
CCMMCN 
*/ ELK/ 

*  IHCRZ(4), 

*  IVERT (4 ) , 

*  IYSET, 

*  MAXCOL, 

*  MAXIX, 

*  MAXIY, 

*  MA.XPCW 

*  MAXSR, ’ 

*  'IF 
COMMON 

*/ ELK J / 

*  JC  JE, 

*  JDF.AW, 

*  J MESS, 

*  JSCR , 

*  JSTAG, 

*  JTITLE 
DIMENSION 

*  MCHARS(8 ,63) 

DATA 

*  (NCHARSs483*55B)  , 

*  (MTOTAL=63) , 

*  (M55=13H  ) 

ISI2E=8 

CALL  CHRSTZ(ISIZE) 

IFCNJM.LT. 1333)  GC  TO  233 
NLINE=2*IVERT (ISIZE) 


SETTING  THE  CHARACTER  SIZE  AND  LINE  SPACEINC-  FOR  MESSAGES. 

THIS  SECTION  READS  THE  MESSAGES  STORED  ON  TAPE1 
N55=N?5. AND. . NCT.MASKC5 ) 

DO  123  1=1, NTCTAL 

READC1 , 1333)  NTH , (NCHAPSC J , NTH ) , J=1 , ?) 

IF ( EOF ( 1 ) .NE. 3)  RETURN 
123  CONTINUE 

STOP"ECF  NOT  ENCOUNTERED  READING  MESSAGES  FROM  TAPE1 . " 

233  CALL  BELL 

IF (NUM.GT. NTCTAL)  STOP"NESSACE  13  NUMBER  EXCEEDS  MATRIX  3IMENSIC 
IFCNUM.GT. 3)  GO  TO  243 
IFCNUM.LT. 3)  GO  TO  223 
MLINE=2*IVERT(ISIZE) 

CALL  NEW PAG 
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RETURN 
223  ML--NJM 

NLINE=MLINE  +  NL*IVERT(TSIZE) 

RETURN 

243  MCHK1 =(  NCHARSd , NUM) .AND.MASKC6)  )  .OR.  N55 

NCHK2=(  SHIFT (NCHARSd , MUM) ,63  .AND.  MASKC6)  )  .CR.  N55 
IF(NCHK1 . NE. 1HP  .AND. 

*  NCHK2.NE. 1HS  .AND. 

*  JHESS.NE. 1 )  GO  TO  333 
263  NLINE=NLIME  +  IVERT(ISTZE) 

CALL  HOME 

CALL  MCVREL( 3,-NLINE) 

CALL  A KM COE 

V,'RITE(4,°333)  NCHARSd  , NUN)  ,(NCHARS(J,NUM)  ,  J=2 , 8 ) 
IF(MCHK2.EQ. 1HS)  CALL  FTNITT(3,3) 

333  IF(NCHK2.ME. 1HC)  RETURN 
34  3  CALL  HC'-'E 
CALL  BAKSP 
CALL  CZAXIS(2) 

CALL  BELL 
CALL  A  MM  COE 
READ(3,P333)  MANS 
CALL  CZAXISO) 

IF  (MANS.  EG.  IHf!  .CR.  NANS.EO.  1HY)  RETURN 

GC  TO  26  3 

ENTRY  MESFLIP 

JMESS=-JMESS 

RETURN 

FORMATS 

1  333  FCRMATCI2, IX, 8 R 1 3 ) 

3333  FCRMAT(AI) 

9333  FORMATS RP.7R 13) 

END 


SI 
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CCPTICN 

SUBROUTINE  OPTION 

common 

*/ ELK/ 

*  IHORZ(4), 

*  IVERTC4), 

*  IYSET, 

»  MAXCOL, 

*  MAXIX, 

*  MAXTY, 

*  MAXRCW, 

*  NAXSR , 

*  NF 
COMMON 

*/ELKJ/ 

*  JCUE , 

*  JDRAW, 

*  JMESS, 

*  JSCR , 

*  JSTAG, 

*  JTITLE 
COMMON 

*/ ELKS CAL/ 

*  LENSCAL, 

*  MEXP, 

*  SCALAST, 

*  SCALES, 

*  SCALET, 

*  SCALSIZ 
CCMMCN 

*/ ELKSD/ 

*  IXRANGE, 

*  IXSTART, 

*  1X1, 

*  IYRANC-E, 

*  IYSTART, 

*  IY1, 

*  MJNIK23), 

*  PHID, 

*  RATI CO, 

*  X RANGE , 

*  XSTART, 

*  X3, 


77  IMriM, 

*  Y  3 


**#»###*****#*#**##*###*#**##*######«##*##*###******##****##***«#***##****##*# 
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CALCULATES  AMD  DRAWS  SCALE  KEY  OH  TERMINAL  SCREEN 
ENTRY  KEY 

IF( JDRAW.NE. 1 )  GC  TC  £00 

id:  ifuscr.ne.d  call  setscr 

IF(SCALAST. EC. SCALES)  GO  TC  FDD 

SCALAST=SCALES 

SCALS IZ= 10 

NEXP=D 

STEP=D.  125  *MAXSR*SCALES 
200  rF(STEP.GE. 1. D)  GO  TO  24  D 
STEPrI  D.  D'S.TEP 
NEXPsMEXP  -  1 
IF(NEXP.GE.-ID)  GO  TO  20 D 

MESSAGE  -  "SCREEN  SCALE  IS  LESS  THAN  1.0*E-1D." 
CALL  MESSAGE  (F 2 ,  KD'JM) 

RETURN 

24 D  IF ( SCALS TZ . GE . STEP )  GO  TC  <00 
IF(SCALSIZ.CT.IDI.O)  GO  TO  260 
SCALS IZ=1 0. D*SCALSIZ 
GC  TG  24 D 
260  NEXP =MEXP  +  1 
STEP=D. 1*STEP 
IFCMEXP.LE.7)  GO  TO  24 D 

MESSAGE  -  "SCREEN  SCALE  IS  GREATER  THAN  1.0*210." 
CALL  MESSAGE (4 3 ,  ND'JM) 

RETURN 

200  FACTOR  =STEP/'SCALSIZ 

IF( FACTOR. GT. 0.70)  GO  TO  340 
SCALS IZ=0.5*SCALSIZ 
IF( SCALS IZ.GT. 1.0)  GO  TC  300 
CALL  MESSAGE(44,NDUM) 

RETURN 

34  0  LENSCAL= (SCALS IZ* ( 1 0 . 0**MEXP ) ) / SCALES 
400  IFdXI.LT.O  .CR.  IY1.LT.  0)  GO  TO  600 

IF ( (1X1  +  1 .2*LENSCAL) .GT. (IXSTART  +  IXRANGE) ) 

*  1X1  =IXSTART  +  IXRANGE  -  1 .2*LEf!SCAL 
CALL  MOVAPSdXI ,  IY 1 ) 

CALL  DRWREL(LENSCAL,0) 

IY=0. 1*LEMSCAL 
CALL  DRWREL(0,IY) 

IX=0.5*LENSCAL 
CALL  MCVREL(-IX,0) 

CALL  DRWREL(D,-IY) 

CALL  MCVREL(-IX, 0) 

CALL  DRWREL(0, IY) 


IYsIY/2 

CALL  MCVRELC  3, -IY) 

CALL  ORWRELCLENSCAL, 0) 

CALL  MOVABSCIX1 ,IY1) 

CALL  CHRSIZd) 

CALL  CSIZECIH, IV) 

IY=IV 

IX=IH/2 

CALL  MOVREL(-IX,-IY) 

CALL  AKMCDE 
13=3 

I  IsSCALSIZ 
WRITE (4, 1333)  13 
CALL  MCVABSdXI ,  IY1 ) 

IXsLENSCAL  -  2*IH 
IFdl.LT.  1333)  IXsIX  -  IH/2 
IF(I1.LT. 133)  IXsIX  -  IH/2 
IFdl.LT.  13)  IX=IX  -IH/2 
IFCMEXP.NE. 3)  IXsIX  -  3*IH 
CALL  MCVRELCIX, -IY) 

CALL  A MM COE 
WRITE (4 ,1343)  II 
IFCMEXP.EC. 3)  GO  TO  443 
CALL  MCVABSCIX1 ,IY1) 

CALL  MCVRELCIX, -IY) 

CALL  AKMCDE 

WRITE (4, 1133)  "*1 3E" ,MEXP 
443  CALL  MCVABSCIXI.IYI) 

30  46  3  J=1 ,23 

IFCK'JNIT(J)  .EC.55B)  GO  TO  483 
NCHARSsJ 
463  CONTINUE 

483  I Xs (LENS CAL  -  NCHARS*IH)/2 
CALL  MCVRELCIX, -2*IV) 

CALL  AKMCDE 

WRITE (4, 2333)  (NUNITCJ ) ,  J=1 ,  NCHARS ) 

RET'JRN 

C 

C***# a*#*##*###*#**######**###**###*#####*#**#**#*#**#*##****#**#* *#**«##*#**>( 

r 

C  REQUESTS  PCSITICM  CF  SCALE  KEY 
ENTRY  SETKEY 
IFC J3RAW.ME. 1 )  GO  TO  933 

C 

C  MESSAGE  -  "SET  SCALE  POSITION. " 

6  33  CALL  M  ESSAGE ( 45 , MO  JK ) 

H  =-1 

CALL  INPUT CX ,  Y,  M) 


NAX-83 139-60 


IF(M.EO.-I)  CO  TO  6U3 

C  MESSAGE  -  "POINTER  IMPROPERLY  POSITIONED,  TRY  AGAIN." 

CALL  MESSAGE  (6 ,  ND'JM) 

RET'JRN 

64  3  1X1 =IXRANGE*(X  -  XST ART ) /XRAMGE 
IY1=IYRANCZ*(Y  -  YSTART 3/YRANGZ 
RETURN 
C 

£#*#* **##**#*#*###*#*###*#*##**####***#*****##*# #**#**#**#**#####***#*****#**** 

c 

C  DRAWS  X-Y  AXIS  ON  TERMINAL  SCREEN 
ENTRY  AXIS 

IF( JDRAW.NE. 1 )  GO  TO  901 
CALL  MCVEACXSTART, 3. 3) 

X=XSTART  +  XRANGE 

CALL  DASHA(X,  3.  3, 7777"'76,6 ) 

CALL  MCVEAO.  3, YSTART) 

Y=YSTART  +  YRANGE 

CALL  DASHA(3.3,Y,77777'7f06) 

RETURN 

C 

£*****#*#» #****#*»*»###*##«* *4 ****** ******#*##*## ********* ************** ****** 

c 

C  DRAWS  BORDER  ON  TERMINAL  SCREEN 
ENTRY  BORDER 

IF( JDRAW.NE. 1)  GO  TO  Q33 
CALL  MOVAES(IXSTART, IYSTART) 

CALL  DRWRELCD , IYRANGE ) 

CALL  DRWRELCI XRANGE, 31 
CALL  DRWREL( 3, -IYRANGE) 

CALL  DRWRELC-IXRANGE, 3) 

RETURN 

C 

C  MESSAGE  -  "DRAWING  DIMENSIONS  HAVE  NOT  BEEN  SPECIFIED." 

933  CALL  MESSAGE (23 ,  ND’JM) 

RETURN 

C 

C  FORMATS 
1303  FCRMAT(II) 

10U 3  FORMAT(lu) 

1103  FCRMAT(nX, A.n,  12) 

2333  FCRMAT(23R 1 ) 

END 
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CP.EVIVZ 

S'JBRC'JTIME  REVIVE 
COMMON 
*/BLK/ 

*  IH0RZ(4), 

*  IVZRT(4), 

*  IYSET, 

*  MAXCCL, 

*  KAXIX, 

*  MAXIY, 

*  KAXROW, 

*  KAXSR , 

*  NF 
COMMON 

*/PLKJ/ 

*  JCJE , 

*  JDRAV, 

*  JMESS, 

*  JSCP,, 

*  JSTAG, 

*  JTITLE 
COMMON 

VBLKPTS/ 

*  ARRAY(533,2) , 

*  ASPL(133,20) , 

*  MCOOE(533) , 

*  NPTS, 

*  NSPLS(533) , 

*  NSW ITCH, 

*  NTHSPL, 

*  NVPTS, 

*  JMIT 

COMMON 

*/ ELKSCAL/ 

*  LEMSCAL, 

*  NEXP, 

*  SCALAST, 

*  SCALES, 

*  SCALET, 

*  SCALSIZ 
COMMON 

*/BLKSO/ 

*  IXRANGE, 

»  IXSTART, 

*  1X1, 

*  IYRANCE, 

»  IYSTART, 

*  IY1 , 
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*  M:JNIT(23 ) , 

*  PH 13, 

*  P.ATI03, 

*  XRANGE , 

*  XSTART, 

*  X3, 

*  YRANGE, 

*  YSTAHT, 

*  Y3 
C 

C  MESSAGE  -  "INPUT  TAPE  NUMBER  THAT  CONTAINS  DRAWING  DATA." 
CALL  MESSAGE (38, N3UM) 

CALL  ANMODE 
REA 3(3,*)  NTAPE 


THE  FCLLCWING  STATEMENT  SKIPS  MESSAGE  LINES,  NO  MESSAGE  IS  WRITTEN. 
CALL  MESSAGE (-2 ,NDUM) 

IF(EOF(3) .ME.  3  .OR.  NTAPE. LE. 3)  RETURN 
REWIND  NTAPE 

READ(MTAPE, 1303)  I XRANGE , 

*  I XSTART, 

*  I YRANGE, 

*  IYSTART, 

*  MAXSR  , 

»  NAD3 

IF ( EOF ( NTA PE ) . NE . 3 )  GO  TO  433 
READ(NTAPE,  1363)  N'JMIT 
IF ( EOF ( NTA  PE ) .  NE .  3 )  GO  TO  403 
REA3(NTAPE, 1 1 33)  PHI3  , 

*  RATICD  , 

*  SCALET  , 

*  UNIT  , 

*  XRANGE  , 

*  XSTART  , 

*  XO 

*  YRANGE  ! 

*  YSTART  , 

*  YD 

CALL  VWINDOCXSTART , XRANGE , YSTART , YRANGE ) 

IF ( EOF ( NTA  PE ) . NE . 3 )  GO  TO  433 
READ(NTAPE, 1233) 

IF ( EOF ( NTA  PE ) . ME . 3 )  GO  TO  433 

JDRAWzI 

CALL  SETSCR 

NFIRST=3 

N1=NPTS  +  1 

N2=NPTS  +  NA30 

DO  733  NTHPT=N1,N2 


87 


no  o  o  o  o 


NA DC-80 109-60 


READ(NTAPE, 1300)  I,NSPLS(NTHPT)  .NCCDEOJTHPT)  ,ARRAY(MTHPT,  1 ) , 
*  ARRAY(NTHPT,2) 

IF(ECF(NTAPE).NE.O)  GO  TO  MOO 
HPTS=MTHPT 

IF(NCCDE(NTHPT ) .NE.-5 )  GO  TO  160 
IFCNTHPT  -  NFIRST.GT. 1 )  GO  TO  140 
C 

C  MESSAGE  -  "INSUFFICIENT  NUMBER  OF  POINTS  FOR  SPLINE  CURVE." 
CALL  MESSAGE (25.NDUM) 

RETURN 

140  CALL  FIT(NFIRST) 

NFIRST=0 

160  I F ( MS PLS ( NTH PT ) . EO . 0 )  GO  TO  300 
HFIRSTsMTHPT 
NTHSPL=NTHSPL+1 
IF(NTHSPL.LE.2D)  GO  TO  180 

MESSAGE  -  "MAXIMUM  NUMBER  OF  SF_INES  HAS  BEEN  EXCEEDED." 

CALL  MESSAGE (3 1,NOUM) 

RETURN 

180  NSPLSOfTHPT )=NTHSPL 
300  CONTINUE 
RETURN 

MESSAGE  -  "EOF  ENCOUNTERED  READING  DRAWING  DATA  TAPE." 

400  CALL  MESSAGE  ( 39,  OJM) 

RETURN 


FORMATS 
1000  FCRMATO  OX,  110) 

1  06  0  FORMAT (1  OX, 20R 1 ) 

1100  FORMAT(8X,G13.6) 

1200  FCRMAT(BAIO) 

1300  FCRMAT(I3,4X,I2(3X,I3,3X,2G13.6) 
END 
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CSAVE 

SUBROUTINE  SAVE 
COMMON 
*/BLK/ 

*  IH0RZ(4), 

*  IVERT (4 ) , 

*  IYSET, 

*  MAXCOL, 

*  MAXIX, 

*  MAXIY, 

*  MAXP.OW , 

*  MAXSR , 

*  NF 
COMMON 

*/ELKJ/ 

*  JC'JE, 

*  J3RAW , 

*  JMESS , 

*  JSCR, 

*  JSTAG, 

*  JTITLE 
COMMON 

•/ELKPTS/ 

»  ARRAY(533,2), 

*  ASPL( 100,23) , 

*  NCODE(509), 

*  MPTS, 

*  NSPLS(500) , 

*  NSW ITCH, 

*  NTHSPL, 

*  NVPTS, 

*  UNIT 
COMMON 

*/ELKSCAL/ 

*  LENSCAL, 

*  MEXP, 

*  SCALAST , 

*  SCALES, 

*  SCALET, 

*  SCALSIZ 
COMMON 

*/ ELKSD/ 

*  IXRANGE, 

*  IXSTAPT, 

*  1X1, 

*  IYRAMGE, 

*  IYSTART, 

*  IY1 , 
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*  N:JNIT(23) , 

*  PHID, 

*  RATICD, 

*  XRANGE, 

*  X ST ART, 

*  X3, 

*  YRA.MGE, 

*  YSTART, 

*  YD 

IF( JDRAW.NE. 3)  GO  TO  83 

MESSAGE  -  "OR AW TNG  DIMENSIONS  HAVE  NOT  BEEN  SPECIFIED." 
CALL  MESSAGE (23,  NOW) 

RETURN 


MESSAGE  -  "INPUT  TAPE  NUMBER  ON  WHICH  DRAWING  DATA  IS  TO  BE  SAVED." 
83  CALL  MESSAGE (11, NO' JM) 

CALL  ANMCDE 
READ(3,*)  NTAPE 


THE  FOLLOWING  STATEMENT  SKIPS  MESSAGE  LINES,  NO  MESSAGE  IS  WRITTEN. 
CALL  MESSAGE (-2 , NDUM) 

IF ( EOF ( 3 ) . NE . 0  .OR.  NTAPE. LE. 3)  RETURN 


CALL  ANMCDE 
WRITE(NTAPE, 1333) 

* 

* 

* 

* 

* 

WRITE  (NTAPE,  1363) 
WRITE(NTAPE, 1133) 

# 

* 

* 

* 

* 

* 


* 

* 


WRITECMTAPE, 1233) 
WRITEOfTAPE,  133  3) 

RETURN 


’  I XRANGE" , IXRANGE, 
’IXSTART" , IXSTART, 
’IYRANGE" , IYRANGE , 
'IYSTART" , IYSTART, 
'MAXSR"  ,MAXSR  , 
'NPTS"  , NPTS 
’N'JNIT"  ,  NUN  IT 
•PHID"  , PHID 
'RATIOD"  , RATICD, 
’SCALET"  , SCALET  , 
'UNIT"  ,  !JNIT 
’XRANGE"  .XRANGE  , 
’XSTART"  .XSTART  , 
'Y  V'  YD 

'Y RANGE"  IYRANGE’, 
’YSTART"  , YSTART  , 
’YD"  ,Y3 


( (I , NSFLS(I ) ,NCCDE (I ) , ARRAV(1 , 1 ) ,ARRAY(T ,2) ) 
,1=1, NPTS) 


FORMATS 
1DDD  FORM AT( AID, 110) 
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1363  FORMAT ( A 1 3 , 23R 1 ) 

1133  FCPMAT(A8,C13.6> 

1233  FCRMAT(*NTHPT  NSPLS  NCCDE  XARRAY 
1333  FCRMAT(I3,4X,I2,3X,I3,?X,2G13.6) 
END 
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CSETC'JE 

SUPRC JTINE  SETCJE 
COMMON 
*/ ELK/ 

*  IHCRZ(U), 

*  IVERT(4), 

*  IYSET, 

*  MAXCCL, 

*  maxtx, 

*  KAXIY, 

*  MAXRCW , 

*  MAXSR, 

*  MF 

coral 

*/EL KC'JZ/ 

*  IHEIGHT, 

*  ILENGTH , 

*  ISI3E, 

*  I 'JO  GELT, 

*  IXORIG, 

*  UQ1, 

*  IVQDELT, 

*  IYORIG, 

*  IVQ1 , 

*  LECENDC 15, 15,20), 

*  NCHARC, 

»  PHIC, 

*  SIDED 

co^rcr; 

VELKJ/ 

*  JC'JE, 

*  JDRAW, 

*  JMESS, 

*  JSCR , 

*  JSTAG , 

4  JTITLE 


MESSAGE  -  "T*!P:JT  LONER  LEFT  AND  LOWER  RIGHT  CORNER  POINTS  OF  C'JE  00ARC" 
CALL  MESSAGE (7 , ND:JM) 

CALL  SELL 

CALL  CNEPMT ( I JC 1 , IVC 1 ) 

CALL  BELL 

CALL  ONEFf.'TC  JQ2,  IVC2) 

■J3ELT=IJC2  -  IJC1 
VDELT=IVQ2  -  TVOI 
PKIC=ATAN2(V3ELT,  'JDELT ) 

I JCDELT  =  JDELT 

I VC3ELT  =MAXROW*  ( ;JDELT/  f'A  XCCL ) 


92 


AD-A093  311 


NAVAL  AIR  DEVELOPMENT  CENTER  WARMINSTER  PA  AIRCRAFT  —ETC  F/6  1/3 
ZORAFT-A  GRAPHITE  CODE  FOR  VTOL  AIRCRAFT  GROUND  FOOTPRINT  VISUA— ETCIU) 
JAN  SO  J  J  ZANINE,  K  A  GREEN 
UNCLASSIFIED  NADC-80109-60  NL 


o  o 


NAX-83139-63 


SIDEC=JDELT/mXCCL 
JC:JE=-1 
RETURN 

ENTRY  CUEFLIP 

jc;je=-jc:je 

RETURN 

FORMATS 
2333  FORMAT(I5) 

2133  FORMAT (R 1, 12, 2X,  20R 1 ) 
2233  FORMATC23R1) 

EID 
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CSETSCR 

S'JBRC'TTINE  SETSCR 
CCMMCN 
*/BLK/ 

*  IHORZ(U), 

*  IVERK4), 

*  IYSET, 

*  MAXCCL, 

*  MAXIX, 

*  KAXIY, 

*  FAXRCW, 

*  KAXSR , 

*  NF 
CCMMCN 

*/ELKJ/ 

*  JCUE, 

*  JORAVf, 

*  JMESS, 

*  JSCR, 

*  JSTAG, 

*  JTTTLS 
CCM-ICH 

*/ELKPTS/ 

*  ARRAY (5 00, 2), 

*  ASPL(1 33,23) , 

*  MCCDE(533), 

*  MPTS, 

*  NSPLSC533) , 

*  NSWITCH, 

*  NTHSPL, 

*  NVPTS, 

*  JNIT 
COMMON 

•/ELKSCAL/ 

*  LENSCAL, 

*  NEXP, 

*  SCALAST, 

*  SCALES, 

*  SCALET, 

*  SCALSIZ 
COMMON 

*/ELfCSD/ 

*  IXRANGE, 

»  IXSTART, 

*  1X1, 

*  IYRANGE, 

*  IYSTART, 

»  IY1 , 
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*  NUNITC23), 

*  PHID, 

*  RATIOS, 

*  XRANGE , 

*  XSTART, 

*  X0 

*  YRANGE, 

*  YSTART, 

*  Y3 

6  3  IFCJDRAW.NE.3)  GO  TO  83 


MESSAGE  -  "DRAWING  DIMENSIONS  HAVE  NOT  BEEN  SPECIFIED." 

CALL.  M  ESS  AGE  (23 »  ND:JM ) 

RETURN 

THE  FOLLOWING  STATEMENT  CLEARS  THE  SCREEN,  NO  MESSAGE  IS  WRITTEN. 
83  CALL  MESSAGE (3, NOJM) 

WIDTHS =MAXIX 
HEIGHTS=MAXIY 
133  RATIOS sW IDTH S/ HEIGHTS 

IF ( RATIOS. GT. RATIOS)  GO  TO  233 
IYSTARTs3 
I YR AMGE  sHEIGHTS 
IXRANGE=IYRANGE*RATICD 
IXSTART= (WIDTHS  -  IXRANGE)/2 
GO  TO  243 
233  IXRANGZ=WIDTHS 
IXSTART=3 

I  YRANGEsI  XRAHGE/  P.ATICD 
I YSTART= (HEIGHTS  -  IYRAMGEJ/2 


SETTING  THE  SCREEN  WINDOW 
243  CALL  SWINX  Cl  XSTART,  IXRANGE ,  IYSTART,  IYRANGE ) 
3CALES=XRANGE/ I XRANGE 

SETTING  THE  X  INCREMENT  FOR  SPLINE  FIT 
:JNIT*5«(MAXSR/1  324  )»SCAL ES 
JSCRsI 
RET'JRN 
END 
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CSETTD 

SUBROUTINE  SETTD 
CCMMCN 
VELKJ/' 

*  J  CiJE, 

*  JDRAW, 

*  jy  ess , 

*  JSCR, 

*  JSTAC, 

«  JTITLE 

CCMMCN 
*/ ELKS CAL/ 

*  LENSCAL, 

*  NEXP, 

*  SCALAST, 

*  SCALES, 

*  SCALET, 

*  SCALSIZ 
CCMMCN 

VELK5D/ 

*  IXRAMGE, 

*  IXSTART, 

*  1X1, 

*  IYRAf.'GE, 

*  IYSTART, 

»  IY1, 

*  N:JMTT(23) , 

*  PHID, 

*  RATI CO, 

*  XRAKGE , 

*  XSTART, 

*  XO 

*  YRANGE, 

*  YSTART, 

*  yo 
CCMMCN 

VELKTD/ 

*  iuorwi, 

*  IJDRW2, 

*  i!jo, 

*  IVORW1, 

*  TVDRW2, 

*  TVD 

IF( JDRAW. HE. 3)  CALL  ERASED 


MESSAGE  -  "PLACE  DRAWING  ON  THE  GRAPHICS  TABLET. 
CALL  MESSAGE  (1 8,  ND'JM) 

C 
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MESSAGE  -  "INPUT  LOWER  LEFT  AMO  'JPPER  RIGHT  CORNERS  OF  THE  DRAWING” 
CALL  MESSAGE (1 9, ND:JM) 

CALL  BELL 

CALL  CNEPNT (IUDRW  1 ,  IVORW 1 ) 

CALL  BELL 

CALL  0NEPNT(IUDRW2, IVDRW2) 

MESSAGE  -  "SPECIFY  POINT  ON  DRAWING  AND  TYPE  IN  THE  (X,Y)  COORDINATES." 
CALL  MESSAGE  (20,  ND'JM) 

CALL  BELL 

CALL  CNEPNTd  JO,  IV3) 

CALL  BELL 

CALL  ANMODE 

READ(3,*)  X3,Y3 

IF( EOF ( 3 ) . NE • 3 )  X3=Y3=3.D 

THE  FOLLOWING  STATEMENT  SKIPS  MESSAGE  LINES,  NO  MESSAGE  IS  WRITTEN. 

CALL  MESSAGE  (-2 ,  NO'JK) 

MESSAGE  -  "SPECIFY  ANOTHER  POINT  AMD  TYPE  IN  (X,Y)  COORDINATES. " 

CALL  MESSAGE (21,  ND'JM) 

CALL  BELL 

CALL  CNEPNTdUl ,  IV1 ) 

CALL  BELL 
CALL  ANMCDE 
READ(3,*)  XI, Y1 

THE  FOLLOWING  STATEMENT  SKIPS  MESSAGE  LINES,  NO  MESSAGE  IS  WRITTEN. 

CALL  MESSAGE  (-2 ,  ND'JM) 

MESSAGE  -  "TYPE  UNIT  OF  DIMENSIONS  (23  CHARACTERS  OR  LESS)." 

CALL  MESSAGE (46, ND'JM) 

CALL  ANMCDE 
READ(3 , 1333)  N'JNIT 
0U=IU1  -  I> J  3 
DV=IV1  -  IV3 
ETA=ATAN2(DV,  DU) 

DX=X1  -  X3 
DY=Y1  -  Y  3 
THETA=ATAN2(DY,DX) 

PHIDrETA  -  THETA 
ARG1=DX**2  DY**2 
ARG2=DU4'*2  +  DV**2 

IF( ARG2.LE. 3. 3)  CALL  MESSAGE (22 , HUM) 

SCALETsSCRT ( ARG 1 / ARG2 ) 

SETTING  THE  SCREEN  WINDOW  ARGUMENTS 
WIDTHD=I’JDRW2  -  IUDRW1 
HEIGHTD=IVDRW2  -  IVDRW1 
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RATIOD=WTDTHD/ HEJGHTD 
I'JOrl'JJ  -  (X3/SCALET) 

IV3=IV3  -  (Y3/SCALET) 

SETTING  THE  VIRTUAL  WINDOW  ARGV.ZNTS 
243  XSTART=(I:JDRW1  -  IU3)*SCALET 
XRANGE=WIDTHD*SCALET 
YSTART=(IVDRW1  -  IV3)*SCALET 
YRANGE=HEIGHTD«SCALET 

C  SETTING  THE  VIRTUAL  WINDOW 

CALL  VWINDCCXSTART, XRANGE , YSTART, YRANGE ) 
JDRAWrl 
CALL  SETSCR 
RETURN 
C 

C  FORMATS 
1333  FORMAT (2 3RD 
END 
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CSTAGLN 

SUBROUTINE  CTAGLM 
CCKMCN 
«/ELKJ/ 

*  JCUE, 

*  J3RAW , 

*  JMESS, 

I  *  JSCR, 

j  *  JSTAG, 

.  *  JTITLE 

C 

1  C  MESSAGE  -  "INPUT  TAPE  NUMBER  If ’AT  CONTAINS  STAGNATION  LINE  DATA." 

83  CALL  MESSAGE (43, N3  JK ) 

CALL  ANK03E 
READ(3,*)  JSTAG 

THE  FOLLOWING  STATEMENT  SKIPS  MESSAGE  LIMES,  NO  MESSAGE  IS  WRITTEN. 

CALL  MESSAGE  (-1 ,  ND'JM) 

RETURN 

ENTRY  ORWSTAG 
C 

C  MESSAGE  -  "TAPE  NUMBER  CONTAINING  STAGNATION  LINE  DATA  HAS  NOT  BEEN  SPECIFTE 
IF(JSTAG.CT.O)  GO  TO  133 
CALL  MESSAGE  (41,  ND'JM) 

GO  TO  83 
133  REWIND  JSTAG 
ISIZEal 

CALL  CHRSIZ(ISIZE) 

CALL  CSIZEdH, IV) 

CALL  SEEDW(XMIN,XMAX,YMIN,YMAX) 

123  READ(JSTAG, 1333)  N,XPT,YPT 
IF(ECF( JSTAG). ME. D)GO  TO  233 
XPT =-XPT 
YPT =-YPT 

IF (  (XPT.LT.XMIN) 

*  .OR.(XPT.CT.XMAX) 

*  .OR.(YPT.LT.YMIN) 

*  .CR. (YPT.GT.YMAX)  )  GO  TO  123 
IF(N.GT.O)  GO  TO  183 
Ms-N 

CALL  MCVEA(XPT,YPT) 

IX=3.3*IH 
IY=3.23*IV 
CALL  MCVREL(-IX,-IY) 

CALL  ANMC3E 
WRITER,  1133)  N 
GO  TO  123 

183  CALL  MCVEA(XPT,YPT) 
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CSYMECL 

SUBROUTINE  SYMBOL (MTHSYM , NS TZE) 


THIS  SUBROUTINE  DRAWS  SYMBOLS  FOR  THE  TEKTRONIX 
ISIZE=NSIZE/2 

GO  TO  (100,200,300)  NTHSYM 


THIS  DRAWS  AN  ASTRIK  LIKE  FIGURE 
100  DO  1*0  1=1,8 
IDIR=I-1 

CALL  INCPLTO  ,  IDIR ,  ISIZE) 
IDIR=IDIR+4 

IFCIDIR.GT.7)  IDIR=IDIR-8 
CALL  INCFLTO,  IDIR ,  ISIZE) 

140  CONTINUE 
RETURN 


THIS  IS  A  PLUS  SIGN  WITH  OPPOSITE  BARS  CONNECTED 
200  CALL  INCPLTO  ,  0,  ISIZE) 

CALL  INCFLTC1 , 3, ISIZE) 

CALL  INCPLTO  , 6, NSIZE) 

CALL  INCPLTO  ,  3,  ISIZE) 

CALL  INCPLTO  ,  0,  ISIZE) 

RETURN 

THIS  DRAWS  A  SQUARE 
300  CALL  INCPLTO,  1 , ISIZE) 

CALL  INCFLTO  , 4, NSIZE) 

CALL  INCFLTO  ,6, NSIZE) 

CALL  INCFLTO  ,  0, NSIZE) 

CALL  INCPLTO, 2, NSIZE) 

RETURN 

END 
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CSYMMZT 

SUBROUTINE  SYMMcT 
COMMON 
*/BLKJ/ 

*  JdJE, 

*  JDRAW, 

*  JMESS , 

*  JSCR, 

*  JSTAG, 

*  JTITLZ 
COMMON 

VELKPTS/ 

*  ARRAY(533,2), 

*  ASB.dOI^O), 

*  NCCDE(533), 

*  NPTS, 

*  NSPLS(533), 

*  NSW ITCH, 

*  NTHSPL, 

*  MVPTS , 

*  UNIT 

IF( JDRAW.NE. 3)  GO  TO  83 

MESSAGE  -  "DRAWING  DIMENSIONS  HAVE  NOT  BEEN  SPECIFIED." 
CALL  MESSAGE (23, NDUM) 

RETURN 

£3  IFOJPTS.LT. 2)  RETURN 
NSTOPrNPTS 
NTH PT 1=1 
NTHPT2=NPTS  +  1 
IF(NTHPT2.LZ.533)  GO  TO  93 

MESSAGE  -  "MAXIMUM  NUMBER  OF  POINTS  HAS  BEEN  EXCEEDED." 
CALL  MESSAGE (33 , NDUM) 

RETURN 

93  MC0DE(NTHPT2)=  3 

133  IF ( IABS (NCODE (NTHPT 1  +  1)).NZ.5)  GO  TO  143 
NTHSPL=NTHSPL  +  1 
IF(NTHSP_.LZ.23)  GO  TO  123 

MESSAGE  -  "MAXIMA  NUMBER  OF  SPLINES  HAS  BEEN  EXCEEDED." 
CALL  MESSAGE (31, NDUM) 

RETURN 

123  NFIRST=NTHPT2 

IF(NCODE(NTHPT2).NE.3)  NFIRST=NFIRST  -  1 
NSPLS(NFIRST)=NTHSPL 
1« 3  NPTS=NTHPT2 

ARRAY(NTHPT2, 1 )=ARRAY(NTHPT1 , 1 ) 
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ARRAY(NTHPT2, 2)=-ARRAY (MTHPT1 ,2) 

IF ( NCCOE ( NTH PT2 ) . EQ . -5 )  CALL  FIT(MFIRST) 

NTHPTUNTHPT1  +  1 

IF( NTHPT 1 .  GT . MSTOP)  GO  TO  200 

NTHPT2sNTHPT2  +  1 

NCCOE (MTHPT2)=NCODE (NTH PT1 ) 

IF(NCC0E(MTHPT2  -  1 ) .EC. MC00ECNTHPT2)  .CR. 

*  NC0DE(NTHPT2  -  D.EQ.O  .OR. 

*  NCODE ( NTH PT2 ) . LT . 0  )GO  TO  14 

GO  TO  100 

200  RETURN 
EHO 
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CVIEW 

SUBROUTINE  VIEW 
COMMON 
*/ELKJ/ 

*  JC'JE, 

*  JDRAW, 

*  JMESS, 

*  JSCR, 

*  JSTAG, 

*  JTITLE 
COMMON 

*/ELKPTS/ 

*  ARRflY(5 33, 2) , 

*  ASPL(133,23) , 

*  HCODE(533), 

*  NPTS, 

*  NSPLS(5 33) , 

*  NSWITCH, 

*  NTHSPL, 

*  HVPTS, 

*  JMIT 

IF( JDRAW. NE. 3)  GO  TO  63 

MESSAGE  -  "DRAWING  DIMENSIONS  HAVE  NOT  BEEN  SPECIFIED." 
CALL  MESSAGE (23 , ND9M) 

RET 'JR  M 

63  NTHP7-NVPTS  +  1 
GO  TO  123 
ENTRY  VIEW ALL 
IF( JDRAW.ME. 3)  GO  TO  S3 

MESSAGE  -  "DRAWING  DIMENSIONS  HAVE  NOT  BEEN  SPECIFIED." 
CALL  MESSAGE (23, ND3M) 

RET:JRN 
83  NTHPT=1 
133  NSTART=1 

123  IF(NCCDZ(NTHPT).ffi.O)  NTHFT=NTHPT  -  1 
X=ARRAY(NTHPT, 1 ) 

Y=ARRAY(NTHPT,2N 
XBEGIN=X 
CALL  MCVEACX, Y) 

233  MTHPT=NTHPT  +  1 

IFCNTHPT. GT. NPTS)  GO  TO  633 
IFCNCODE (MTHPT ) .ME. 3)  GO  TO  ?33 
IF(NSTART. EC. 3)  GO  TO  133 


MESSAGE  -  "TWO  CONSECUTIVE  NCODES  EC’JAL  3." 
CALL  MESSAGE (32, ND'JM) 
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RETURN 

333  IF(  LABS (NCODE (NTHPT))  .ME.  1 )  GO  TO  433 
X=ARRAY(NTHPT, 1) 

Y=ARRAY(NTHPT,2) 

CALL  DRAWA(X,Y) 

IF (fFCODE CMTHPT )  .GT.  3)  GO  TO  23 3 

MSTART=3 

XBEGIH=X 

GO  TO  233 

433  IF(IABS (NCODE (NTHPT ) ) -EQ. 5)  GO  TO  423 

v EG PAGE  -  "NCODE  IS  MOT  -5  ,  -1  ,  3  ,  1  , 
CALL  MESSAGE (33, NDUM) 

RETURN 

423  NTHSFL=NSPLS(NTHPT-1) 

443  NTHPT =NTHPT  +  1 

IF(MTHPT.GT.NPTS)  GO  TO  633 
IF ( NCODE (NTHPT ) . EC. 5 )  GO  TO  443 
IF(NC03E(NTHPT).EC.-5)  GO  TO  463 

MESSAGE  -  "NCODE  SHOULD  BE  EGJAL  TO  -5." 
CALL  MESSAGE (34, KDUM) 

RETURN 

463  XEND=ARRAY(NTHPT, ’ ) 

YENDsARR AY (NTHPT , 2 ) 

XrXBEGIN 

“f?3  X=X  +  UNIT 

IF(X.GT.XEND)  GO  TO  533 
Y  =S  PLNC 1 ( 1 , AS  PL  0 ,  NTHS PL) ,X) 

CALL  DRAWACX , Y) 

GO  TO  4«3 

533  CALL  3RAWA( XEND , YEND ) 

NSTART=3 
XBEGINsX 
GO  TO  233 

633  NVPTSaMTHPT  -  1 
RETURN 
END 
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(E.i))  Listing  cf  the  "CREATE"  Computer  Code 


The  computer  code,  "CREATE",  reads  the  second  file  on  the 
"ZDRAFT"  input  file  and  writes  the  "ZDRAFT"  subroutine, 

CUEERD.  This  subroutine  manages  the  cueboard  inputs  and  calls 
the  specified  subroutine.  Hence,  additions  and  revisions  to 
the  cueboard  can  be  made  by  rewriting  the  input  file.  The  new 
subroutine  can  be  LIEEDIT  into  the  existing  "ZDRAFT".  The 
permanent  file  containing  the  fortran  compiled  version  of 
"CREATE"  is  named  CREH*.  A  proceedure  file  to  run  "CREATE" 
follows. 

PCR 

GET,XTAFE,CRELM. 

SKIFF, XTAPE. 

CC  PYEF ,  XTA  PE ,  TA  PE2 . 

REWIND, TAPE2. 

CREL^, , ,TAFE2, , , CUEERD. 

The  listing  cf  the  "CREATE"  code  follows. 
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CCREATE 

PROGRAM  CREATEdKP'JT , OUTPUT ,  TAPE2,TAPZ4,  TAPE 5 ,  TAPE6, 

*  TAPE8=INPUT,TAPE9=OUTP'JT) 

DIMENSION 

*  NFORTRN(225,6), 

*  NCHAR(PD) , 

*  MDUMMY(PD) , 

*  NTHCCL(225) , 

*  NTHRCW(225) 

DATA 

*  (NTHCCL=225*3), 

*  (NTHROW=225*3) 

WRITEC6, 1*403)  "CCUEERD" 

WRITE (6, 7DOO)  "SUBROUTINE  CUEBRD" 

WRITE(6, 1433)  "  43  NTHBLK=3" 

WRITE(6, 1433)  "  CALL  IMP' JT (X , Y , NTHBLK ) " 

WRITE (6, 1433)  "  63  IF(NTHBLK.GT. 3)  GO  TO  83" 

WRTTE(6, 1333)  "CALL  MESSAGE (6 , NDUM) " 

WRITE (6 , 1333)  "GO  TO  4)*' 

REWIND  2 
READ(2,2333) 

IF(E0F(2).NE.  3)  STOP"INPUT  DATA  NOT  FOUND  ON  TAPE2" 

READ(2f 2333)  MAXROW,MAXCCL,MAXCHAR 

IF ( EOF ( 2 ) .  ME .  3 )  STOP"INP'JT  DATA  NOT  FOUND  ON  TAPE2" 

MAXBLK =MAXRCW*MAXCOL 

IF ( MAXBLK . GT . 225 )  STOP"C'JE  BOARD  SIZE  EXCEEDS  MATRIX  DIMENSION." 
DO  133  1=1, MAXBLK 

README , 21 33 )  NTH ROW ( I ) , MTHCOLd ) , (NFCRTRN (I ,N) ,N=1 ,6) 

IF(ECF(2).NE.O)  GO  TO  123 

MAXsI 

133  CONTINUE 
123  1=1 

NSTATE=95 

X  333  NRCWsI ,MAXROW 
X  2FJ  NCOL=1,MAXOX 

IF(NRCW.LT.NTHRCWU)  .OR.  NCCL.LT. NTHCCL(I))  GO  TO  263 
NSTATErNSTATE  +  5 

WRITE (5,1133)  MSTATE , ( NFCRTRN (I ,N) ,N=1 ,6) 

WRITE(5, 1333)  "GO  TO  43" 

WRITE(4 , 1233)  NSTATE 
1=1+1 

IF(I.LE.MAX)  GO  TO  283 
MAXRLK=MAXCCL*(NRCW-1)  +  NCCL 
GO  TO  ,23 

263  VRITE(4 , 1233)  9995 
283  CONTINUE 
333  CONTINUE 

323  WRITE(6, 1733)  "83  MAXBLK=", MAXBLK 
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WFITE(6, 1030)  " IF ( MTHBLK . GT . MAXBLK )  GO  TO  S999" 

WRITE(6,1330)  "GO  TO  (" 

REWIND  4 
REWIND  5 
J=3 

360  NBLANKrO 

READC4, 1300)  (ND'JMMYQ ) ,  1=1 ,6) 

IF ( EOF ( 4 ) . NE . 0 )  GO  TO  520 
DO  500  1=1,6 

IF(ND'JMMY(I ) .ME.55B)  GO  TO  400 
NBLANKrNELANK  +  1 
IF(NBLANK.GT.5)  GO  TO  360 
GO  TO  500 
400  J=J+ 1 

NCHAR ( J )=NDUMMY(I ) 

IF(  J .  LT .  62  .CR.  t-fCHAR(J)  .NE.56B)  GO  ID  50 O 
WRITEC6, 1500)  (NCHAR(K) ,K=1 , J) 

J=3 

GO  TO  760 
500  CONTINUE 
GO  TO  360 

520  IF(J.CT.O)  GO  TO  540 

WRITE(6, 1600)  "*9999)  MTHBLK" 

GO  TO  560 

540  IF(NCHAR(J) .EQ.56B)  J=J-1 

WRITEC6, 1500)  (NCHAR (K) ,K=1 , J) 

WRITE(6, 1600)  "*)  NTHBLK" 

560  READ(5,1300)  MDUMMY 

IF(ECF(5).NE.O)  GO  TO  600 
WRITE(6, 1300)  ND'JMMY 
CC  TO  560 

600  WRITEC6, 1400)  "C" 

WRITEC6, 1400)  "C  MESSAGE  -  BLANK  CUE  REQUESTED.  TRY  AGAIN.” 
WRITE(6, 1100)  9999, "CALL  MESSAGE (1 7, ND'JM) " 

WRITE(6, 1000)  "GO  TO  40" 

WRITE (6, 1000)  "END" 

C 

C  FORMATS 
1000  FCRMAKT7, 6A10) 

1100  FORMAKI5, 1X.6A10) 

1200  FORMATCI4,* ,*) 

1300  FORMAT(80R1 ) 

14  00  FORMAK9A10) 

1500  FCRMATCT6, 1H* ,66R 1 ) 

1600  FCRMAT(T6,7A10) 

1700  FCRMAT(T4,A10,I3) 

2000  FCRMAKI5) 

2100  FCRMATCR1 , I2,22X,6A13) 
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